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• COMPUTIST does NOT purchase editorial 
material. The entire editorial content consists 
of information submitted to COMPUTIST 
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the editor, softkeys, A.P.T.s, playing tips, 
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with all and exclusive rights belonging to 
COMPUTIST. 

• Entire contents copyright 1990 by SoftKey 
Publishing. All rights reserved. Copying done 
for other than personal or internal reference 
(without express written permission from the 
publisher) is prohibited. 

• The Sof dCey Publishing assumes no liability 
or responsibility for the products advertised 
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expressed by the authors are not necessarily 
those of COMPUTIST magazine or SoftKey 
Publishing. 
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for more information. 
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of address may be acquired at the regular 
back issue rate. 

We arenot responsible for missing issues 
90 days c^er mailing date. If you do not 
receive an issue at the usual time each month, 
please call or write. 
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Readers Data Exchange 

New COMPUTIST readers using 
Apple lis are advised to read this page 
carefully to avoid frustration when at- 
tempting to follow a softkey or entering 
the programs printed in this issue. 

What is a softkey, anyway? 

Softkey is a term which we coined to describe 
aprocedure thatremoves, or at least circumvents, 
any copy-protection on a particular disk. Once a 
softkey procedure has been performed, the re- 
sulting backup copy can usually be copied by the 
normal copy programs (for example: COPY A, 
on the DOS 3.3 System Master disk). 

Commands and control keys 

Commands which a reader is required to 
perform are set apart by being in boldface and on 
a separate line. The return key must be pressed 
at the end of every such command unless other- 
wise specified. Control characters are preceeded 
by "Ctrl". An example of both is: 

6 Ctrl P 

Type 6. Next, place one finger on the Ctrl key 
and then press P. Don't forget to press the return 
key. 

Other special combinationkeypresses include 
Ctrl reset and open-apple Ctrl reset. In the 
former, press and hold down the Ctrl key then 
press the reset key. In the latter, press and hold 
down both Ctrl and open-apple dien press reset. 



Software recommendations 

The Starter Kit contains most of the programs 
that you need to "Get started". In addition, we 
recommend that you acquire the following: 

• Applesoft program editor such as "Global 
Program Line Editor (GPLE)". 

•Assembler such as "Merlin/Big Mac". 

•Bit-copy program such as "Copy II Plus", 
"Locksmith" or "Essential Data Duplicator". 

•Word-processor (such as AppleWorks). 

."COPYA", "HD" and "MUFFIN" from the 
DOS 3.3 System Master disk. 

Super lOB and Controllers 

This powerful deprotection utility (in the 
COMPUTIST Starter Kit) and its various Con- 
trollers are used in many softkeys. (It is also on 
each Super lOB Collection disk.) 

Reset into the Monitor 

Softkeys occasionally require the user to stop 
the execution of a copy -protected program and 
direcdy enter the Apple's system monitor. Check 
the following list to see what hardware you will 
need to obtain this ability. 

Laser 128: Your ROM includes a forced 
jump to the monitor. Press Ctrl return reset. 

Apple n+, //e, compatibles: 1) Place an Inte- 
ger BASIC ROM card in one of the Apple slots. 
2) Use a non-maskable interrupt (NMI) card such 
as Replay or Wildcard. 

Apple n+, compatibles: 1) Install an F8 
ROM with a modified reset-vector on the com- 
puter's motherboard as detailed in the "Modified 
ROM's" article (COMPUTIST #6 or Book Of 
Softkeys m ) or the "Dual ROM's" article (COM- 
PUTIST #19). 

Apple //e, //c: Install a modified CD ROM on 
the computer's motherboard that changes the 
open-apple Ctrl reset vector to point to the moni- 
tor. (This will void an Apple lie warranty since 
you must open the case to install it.) 

Apple //gs: If you have the 2.x ROM, there is 
a hidden Classic Desk Accessory (CD A) that 
allows you to enter the monitor. In order to install 
the new CDA, you should enter the monitor 
(CALL -151) before running any protected pro- 
grams and press # return . This will turn on two 
hidden CD As, Memory Peeker and Visit Moni- 
tor. Thereafter press openapple Ctrl esc to go to 
the Desk Accessories menu. Select Visit Monitor 
and there you are. Use ctrl Y to exit. 

Recommended literature 

•Apple n Reference Manual (or He, He, etc.) 

•DOS 3.3 & ProDOS manual 

•Beneath Apple DOS & Beneath Apple Pro- 
DOS, by Don Worth and Pieter Lechner, from 
(Juality Software 

Typing Applesoft programs 

BASIC programs are printed in a format that 
is designed to minimize errors for readers who 
key in these programs. If you type: 

10HOME:REMCIiEAR SCREEN 

The LIST will look like: 

10 HOME : REM CLEAR SCREEN 

Applesoft inserts spaces into a program list- 
ing before and after every command word or 
mathematical operator. These spaces don't pose 
a problem except when they are inside of quotes 
or after a DATA command. There are two types 
of spaces: those that have to be keyed and those 
that don't Spaces that must be typed appear in 
COMPUTIST as special characters (0). All odier 
spaces are there for easier reading. 

NOTE: If you want your checksums to match, 
only type spaces within quotes or after DATA 
statements if they are shown as (0) charactors. 
SAVE the program at periodic intervals using the 
name given in the article. All characters after a 
REM are not checked by the checksum program 
so typing them is optional. 

Typing Hexdumps 

Machine language programs are printed in 
COMPUTIST as hexdumps, sometimes also as 
source code. 

Hexdumps are the shortest and easiest format 
to type in. You must first enter the monitor: 
CALL -151 

Key in the hexdump exactly as it appears in 
the magazine, ignoring the four-digit checksum 
($ and four digits) at the end of each line. When 
finished, return to BASIC with: 
3D0G 

BSAVE the program with the filename, ad- 
dress and length parameters given in die article. 

Typing Source Code 

The source code is printed to help explain a 
program's operation. To enter it, you need an 



"Assembler". Most of the source code in older 
issues is in S-C Assembler format. If you use a 
different assembler, you will have to translate 
portions of the source code into something your 
assembler will understand. 

Computing checksums 

Checksums are 4-digit hexadecimal numbers 
which tell if you typed a program correcdy and 
help you locate any errors. There are two types of 
checksums: one created by the CHECKBIN pro- 
gram (for machine language programs) and the 
other created by the CHECKSOFT program (for 
BASIC programs). Both are on the "Starter Kit". 

If your checksums do notmatch the published 
checksums then the line where the first checksum 
differs is incorrect. 

CHECKSOFT instructions: Install Check- 
soft (BRUN CHECKSOFT) then LOAD your 
program. Press & to get the checksums. Correct 
the program line where the checksums first dif- 
fer. 

CHECKBIN instructions: Enter the monitor 
(CALL-151), install Checkbin at someoutof the 
way place (BRUN CHECKBIN, A$6000), and 
dien LOAD your program. Get the checksums by 
typing the Starting address, a period and the 
Ending address of the file followed by a ctrl Y . 
SSSS.EEEE Ctrl Y 

Correct the lines where the checksums differ. 

Writing to the RDEX editor 

RDEX (are-decks) stands for: Reader's Data 
Exchange. We print what you write. When you 
send in articles, softkeys, APTs, etc., you are 
submitting them fox free publication in this maga- 
zine. RDEX does not purchase submissions nor 
do we verify data submitted by readers. If you 
discover any errors, please let us know so that we 
may inform our other readers. 

Remember that your letters or parts of them 
may be used in RDEX even if not addressed to the 
RDEX editor. Correspondence that gets pub- 
lished may be edited for clarity, grammar and 
space requirements. 

Because of the great number of letters we 
receive and the ephemeral and unpredictable 
appearance of our volunteer staff, any response 
to your queries will appear only in RDEX, so it 
would be more appropriate for you to present 
technical questions to the readers and ask for 
their responses which will then be placed in the 
Apple-RDEX. 

How to get a free library disk 

Whenever possible, send everything on Ap- 
ple format (5.25" - DOS/ProDOS or 3.5" - Pro- 
DOS) or IBM format (3.5") disks. Other formats 
are acceptable but there may be some delay as we 
look for someone to translate it for us. (If you use 
a 5.25" disk, when we print your letter, we will 
return your disk with the current library disk 
copied onto it.) Use whatever text editor you like, 
but tell us which one. Put a label on the disk with 
your name (or pseudonym) and address (if you 
want to receive mail). Don't reformat any pro- 
grams or include them in the text of your letter. 
Send Af^lesoft programs as normal Applesoft 
files and machine language programs as normal 
binary files. We have programs to convert them 
to the proper format for printing. If you are 



sending source code files, and you are not using 
the S-C Assembler, send them as normal text 
files. 

When to include a printed letter 

Don't include hardcopy (printout) unless: 

a. You are writing about a bug or other printing 

error. 

b. You are writing to ask for help. 

c. You are answering another readers help re- 

quest. 

d. You are writing about your subscription or 
sending an orda: for back issues or software. 

Bugs, requests for help and answers to re- 
quests for help are bumped to the head of the line 
and go in the very next issue. All other letters are 
printed in the order that we receive them. 

Writing to get help 

When writing to request help, be sure to 
include ALL relevent information. The more 
information you include, the easier it is to find a 
solution. There's an old saying that goes "A 
properly framed question includes 90% of the 
answer". 

How to get mail 

If you are interested in receiving mail from 
other readers, be sure that we have a current 
address. If you use a pen name and want to 
receive mail, we need to have your address. Our 
readers privacy is important, so we will not print 
your address unless you specifically say too. 

How to write to RDEX authors 

When writing to one of the RDEX authors. 
Write your letter and seal it in an envelope. Put 
your return address, the authors name (as it 
appears in RDEX) and the correct postage on the 
envelope. Put this envelope into another and send 
it to RDEX. We will put die correct address on 
your letter and mail it for you. Check to die right 
of the authors name to see if die author is writing 
from a foreign country and include the proper 
postage. 

Help Line 

TTiese readers have volunteered their time to 
help you. Please call ordy within the given time 
frames (corrected for your time zone). No collect 
calls. (You can write anytime!) 
Jack Nissel (Disk Protection, 7-lOPM EST) 

(215) 365-8160 
Marc Batchelor, 6025 Coker St, Cocoa, FL 

32927 
Rich Etarip, 824 William Charles Ct. #2, Green 

Bay, WI 54304-4018 

The BBS 

(Bulletin Board System) 

Vince Andrews is the sysop for the Computist 
BBS. The NEW number is: 

(206) 964^730 

If you already have a User ID# and password, 
sign-on using the User ID#. If you are anew user, 
it may take a day or so to validate your new ID# 
and password. 



You have a LEGAL RIGHT 
to an unlocked backup copy 
of your commercial software. 

Our editorial policy is that we do NOT condone software piracy, but we do believe that users 
are entitled to backup commercial disks they have purchased. In addition to the security of a 
backup disk, the removal of copy-protection gives the user the option of modifying programs to 
meet his or her needs. Furthermore, the copyright laws guarantee your right to such a 
DEPROTECTED backup copy: 

..."It is not an infringement for die owner of a copy of a computer program to make or authorize 
die making of anodier copy or adaptation of diat computer program provided: 

1 ) that such a new copy or adaptation is created as an essential step in die utilization of the computer 
program in conjunction widi a machine and that it is used in no odier manner, or 

2) diat such new copy or adaptation is for archival purposes only and that all archival copies are 
destroyed in die event diat continued possession of the computer program should cease to be 
rightful. 

Any exact copies prepared in accordance widi the provisions of this section may be leased, sold, 
or otherwise transferred, along widi the copy from which such copies were prepared, only as part 
of die lease, sale, or odier transfer of all ri^ts in the program. Adaptations so prepared may be 
transferred only with die authorization of die copyright owner." 

United States Code title 17, §117 . 
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RATINGS 

Superb ^^^^^ 

Excellent i^r^*^ 

Very Good ^^ik 

Good ** 

Fair * 

Poor © 

Bad ^' 

Defective ^ 

Eamon MCMXCII 

Origins 

In the mid-70's, if you had a 
300-baud modem terminal, you 
could dial up most 'time share' 
systems and play the first com- 
puter adventure. "Adventure 
Land'' ("The Adventure", etc.) 
was — in fact, still IS — a text- 
only game which challenges the 
player to solve puzzles, over- 
come hazards, and collect good- 
ies. In a Text Adventure', you 
type in commands and get text 
descriptions of what happens 
as a result. For instance, GO 
NORTH might produce some- 
thing like "You are in a rocky 
gulch with high cliffs to the east 
and west. The way continues 
north and south. An iron grate 
covers an opening in the 
ground." (Hint: OPEN GRATE!) 

With the arrival of for-real 
home computers like the Apple 
II, text adventuring really 'took 
off. We had the Scott Adams 
quests (e.g. "The Pyramid of 
Doom"), Infocom's "Zork" (I-III), 
"Enchanter", "Wishbringer", 
etc., assorted adventures from 
other vendors, and 'home brew' 
efforts published in magazines 
like Computist and SoftSide. 
The early '80's also saw the be- 
ginnings of Eamon adventur- 
ing. 

Eamon? 

"Eamon" is not a single ad- 
venture. It is a text adventure 
play and authoring system orig- 
inated by Don Brown. His idea 
was to provide both a character 
creation/jumping-off point for 
many adventures AND the tools 
by which he and fellow enthusi- 
asts would produce an unend- 
ing stream of new scenarios. 
Don wrote "The Beginner's 
Cave" and a few other early 
adventures; but, most of the 
over 200 Eamon's are by nu- 
merous creators who joined in 
later. 

Indeed, "Eamon" is people. It 
is chiefly due to efforts of the 
many "fellow enthusiasts" that 
Eamon adventuring continues 



to flourish. The Apple Avoca- 
tion Alliance was largely re- 
sponsible for organizing, num- 
bering, and distributing the 
early Eamons. Besides writing 
several adventures, John Nel- 
son helped collect submissions 
and expanded the capabilities 
of MAIN PGM (the main game 
program) through version 6.2. 

Via the Eamon Adventurer's 
Guild (EAG), Tom Zuchowski 
deserves most of the credit for 
adapting to Apple II series im- 
provements, assuring product 
quality, and, in general, main- 
taining order in modern Eamon- 
ville. Tom has also produced a 
number of scenarios; and, his 
version 7.0 of MAIN PGM is 
just one of many contributions 
to Eamon game development. 
Chuck Haight has been a solid 
Eamon supporter from its ear- 
liest days. Computist not only 
publishes Guild ads, but, as a 
distributor, supplies Eamon 
adventures and authoring ma- 
terials (complete with fancy dis- 
kette labels!) at unbeatable 
prices. 

The Guild does not pay for 
submissions and all Eamon 
materials are public domain. 
Anyone can copy them, place 



characters you and/or others 
who use the same "Eamon Mas- 
ter" (Main Hall) diskette can 
create; but, you can bring in 
only one hero per adventure. 
Since scenarios often allow some 
development of skills and at- 
tributes, players usually stick 
with a single character through- 
out their Eamon questing. 

The Main Hall's most impor- 
tant attribute is that it leads to 
so many interesting places. Just 
select "Go on an adventure", pop 
in the diskette for your chosen 
quest, and you're off! As far as I 
know, no one has ever explained 
how leaving the Hall in this 
manner can place you at the 
mouth of a cave, before the gates 
of a city, on a Star Base launch- 
ing platform, ... ; or, indeed, 
how returning from such dis- 
parate locales so often lands you 
"on the road leading to the Main 
Hall". Tom Zuchowski has spec- 
ulated about "strange forces" 
brought to bear by the influ- 
ence of orbiting suns. My guess 
is that magic, super science, and 
time portals are all involved. 

The Adventures 

When Computist published 
its first major Eamon article in 




them in user group libraries, or 
post them to bulletin boards. 
(Of course, club libraries and 
BB's are not nearly so likely to 
have the latest version of each 
adventure as is an official dis- 
tributor like Computist.) Possi- 
bly, Eamon's best 'selling point' 
is that the many people who 
make it work do so, mainly, for 
fun. 

"Eamon" is also a place, one 
dominated by an imposing 
structure known as The Main 
Hall. Here you can buy and sell 
arms and armor, bank your gold, 
and hire a wizard to teach you 
Eamon's four 'stock' spells 
(Blast, Heal, Power, Speed). 
Presiding over the Main Hall is 
a burly Irishman whose first 
question is always "What's yer 
name?" 

To get started, you enter a 
character name. If the name is 
not found in the CHARACTERS 
file, the character is created — 
you pick gender and the pro- 
gram assigns Hardiness, Agili- 
ty, and Charisma plus skills 
numbers for five Weapon types 
(Spear, Axe, Club, Bow/Gun, 
Sword) and Armor use. There is 
no strict limit on the number of 



1983 there were only about 25 
adventures; but, even then, 
quality varied wildly from sce- 
nario to scenario. Thanks to the 
EAG, serious bugs have, for the 
most part, been tracked down 
and eliminated; and new sub- 
missions are checked out more 
thoroughly. The Guild publish- 
es a 10-page journal (four is- 
sues per year/ $7) where fixes 
for any newly discovered bugs 
appear. Along with news and 
reviews of late releases, each 
issue also lists authors and rat- 
ings for all 200+ adventures. 

By far, the majority of 
Eamons are built around swords 
& sorcery themes running the 
gamut from whimsically Zorki- 
an wanderings through Co- 
nanesque quests and Dragon- 
lance-style crusades. Others 
may send you back to the time 
of dinosaurs, into the future to 
battle robots and mad scien- 
tists, drop you into a modern 
city to solve a crime, deposit 
you at the entrance to a haunt- 
ed manse, or ... . There really is 
no limit to the possibilities. In 
terms of both numbers and va- 
riety, the challenge is practi- 
cally endless. 



Relatively few scenarios in- 
corporate actual mazes (i.e. 
places where you are supposed 
to get lost); but, with up to 200 
locations allowed via the stan- 
dard game program, exploration 
is a goodly portion of every 
Eamon challenge. Most players 
rely upon simple line-and-box 
maps to keep track of treasures, 
puzzle-locked doorways, and 
other key features of the ga- 
mescape. 

More so than in most other 
text adventures, critical 
achievements in Eamon tend to 
involve overcoming dangerous 
adversaries. In combats you 
trade blows to ATTACK MINO- 
TAUR, BLAST GOLEM, etc. 
until all the bad guys are dis- 
patched or flee. Most scenarios 
allow you to flee as well (one or 
more particularly aggressive 
monsters may follow) and a few 
permit three or four restora- 
tions should YOU be the one 
dispatched. Usually, getting 
killed ends the game and you 
must either create a new char- 
acter or use a resurrection util- 
ity to restore the old one. 

Some Infocom devotees may 
be turned off by Eamon's em- 
phasis upon combat. Under- 
standable; however, there are 
numerous adventure-enhancing 
side benefits. First, the need to 
overcome adversaries, makes 
character development and ac- 
quisition of better weapons 
'mean something'. It greatly 
increases the stake you have in 
your character. Second, not all 
"monsters" are unfriendly; some 
will join you for the duration of 
a quest. (In Eamon, every char- 
acter is, technically, a "mon- 
ster". This includes critters, as 
well as guards, wizards, elf bow- 
men, princesses, etc..) Acquir- 
ing helpful recruits adds anoth- 
er dimension to the challenge; 
and, besides, it's more fun to go 
questing with stalwart compan- 
ions at your side. Finally, as a 
Russian revolutionary once ob- 
served: "You can't make a soup 
without slicing monsters." Cru- 
sading against evil wizards, 
wicked queens, and other pow- 
erful foes naturally tends to be 
a rough business. 

In text adventuring, "pars- 
ing" is equated with how well 
the game seems to understand 
your typed-in commands. A very 
good parser, such as the one 
you find in Infocom games, can 
make sense out of inputs that 
'sound' the way people really 
speak. Since you don't have to 
fish around for just the right 
command, it is much easier to 
try out ideas. You play the game, 
not the game program. 

Most Eamon adventures em- 
ploy a two-word parser. To 
move, you enter commands like 
GO NORTH (or NORTH, or N). 
You may also OPEN CHEST, 
GET JEWEL, ATTACK VAM- 
PIRE, DRINK POTION, 
READY LONG BOW, READ 
SIGN, ... .Typically, an adven- 
ture recognizes 50-75 command 
words and the names of any 
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monsters and artifacts. (The 
reason for the variation in num- 
ber of available commands is 
that many authors modify 
MAIN PGM, which is in BASIC, 
to add words.) Entering an in- 
valid command automatically 
produces a list of commands the 
particular game understands. 

The down side of Eamon's 
simple parser is that you must 
sometimes experiment to find 
the command that does what 
you know must be done. Sce- 
nario development is also im- 
pacted. To assure playability, 
Eamon authors have tended to 
avoid building-in complex puz- 
zles. The up side is that, by the 
time youVe gotten through your 
first two or three adventures, 
you have a good feel for how the 
commands are used and pretty 
well know what works and what 
doesn't. Then, too, many pre- 
Version 7.0 games employ au- 
thor-originated mods which let 
the program understand syn- 
onyms, make sense of command 
abbreviations, and otherwise 
behave more intelligently. All 
of these are standard 7.0 fea- 
tures, as are improved capabil- 
ities for checking the status and 
inventory of any ally, trading 
items, and handling puzzle-ori- 
ented entries like PUT CUBE 
IN SLOT. 

With so many games produced 
by so many authors, quality con- 
tinues to vary a great deal. EAG 
nails bugs; but there's no ques- 
tion that some worlds are bet- 
ter 'filled-out' with richer prose 
and more interesting challeng- 
es. Playing time is another in- 
consistent variable. Most of the 
early adventures offer no GAME 
SAVE; yet, some may be good 
for barely an hour while others 
can run to four or five. The range 
is even larger for the newer 
games (including several multi- 
diskette quests) which often do, 
happily, offer a SAVE option. 

Picking a 'good one' is a lot 
like shopping for something to 
read: you look for a juicy sound- 
ing title and a favorite author. 
EAG's reviews and ratings are 
a fair guide, too. (Each adven- 
ture is rated on a 1-10 scale; 10 
is highest.) Predictably, how- 
ever, many fun-to-play early 
adventures tend to be down-rat- 
ed due to lower playing times. 
Most scenarios fit on a single 
diskette; and, at $1 each, you 
can afford to go for 'good pros- 
pects' AND experiment with 
'unknowns'. A ten or twenty- 
dollar investment is guaranteed 
to deliver several evenings of 
adventuring challenge. 

Eamoneering 

Back in the early days of com- 
puter adventuring we collected 
Eamons more or less automati- 
cally from our local user group 
(HAAUG) library. Incredibly, I 
did not become a player until 
just the last couple of months, 
when c^uriosity about the ad- 
ventures included on Comput- 
ist Library Disks took hold. So 
far I've made it through thirty 



or so scenarios. Fun (and more 
than 170 still ahead!); but, the 
real hook turned out to be the 
'other side' of Eamon: program- 
ming and game development. 

Among our vintage "AAA 
Eamon" adventures I came upon 
one not listed by EAG! (Kind of 
like finding an unpublished 
Brahms symphony.) "The City 
of Sorcerers" was playable; but, 
one notable bug and some un- 
developed areas of the games- 
cape made it obvious the adven- 
ture was not quite finished. 
(Also, a dead give away, an ear- 
ly version of the dungeon editor 
was on the same diskette.) 

I fixed the bug and began to 
fill-in some gaps and polish a 
few rough edges with the idea 
of sending "'City'" to EAG for 
registration under the original 
author's name. Well, one thing 
led to another and it soon be- 
came clear that 1. the version 
6.x DUNGEON.EDIT I was us- 
ing needed a user-friendliness 
transplant; 2. the version of 
MAIN PGM (which wasn't even 
named "MAIN PGM" in those 
days) imposed too many restric- 
tions BECAUSE 3. I was mak- 
ing so many changes that a com- 
pletely new adventure was tak- 
ing shape! With the latter real- 
ization I copied the original, 
added the REMed bug fix, and 
mailed it to the Guild. "The City 
of Sorcerers" was where it be- 
longed in the first place; and I 
was free to develop my own sce- 
nario. 

First, I needed a better edi- 
tor. NUEDIT began as a pro- 
gram intended'to allow a player 
or designer to 'walk through' a 
gamescape (using normal N, S, 
etc. commands) and read de- 
scriptions without having to 
fight monsters. With a nice text 
editing routine lifted from 
DUNGEON.EDIT and using 
Beagle's Program Writer 
($49.95) running on the Ilgs, it 
wasn't long before the new edi- 
tor was ready for serious work. 
(Writing NUEDIT was fun and 
a valuable refresher course in 
BASIC. In case you are think- 
ing of learning a new program- 
ming language: Step One is to 
find something interesting to 
program.) 

Anyway, armed with 
NUEDIT.6 and a more modern 
version of MAIN PGM, I was 
enmeshed in sculpting my new 
scenario when what should ar- 
rive in the mail but Tom Zu- 
chowski's version 7.0 package! 
Complete with on-disk manual, 
this IS a major upgrade (still 
DOS 3,3-based) offering a larg- 
er gamescape, better speed, 
built-in GAME SAVE, and op- 
tional 80/40 column display. To- 
which you can add a host of new 
artifact types (e.g. containers, 
keys, hidden doors, ...), better 
parsing, and other features 
guaranteed to enhance puzzle 
development. My 'old format' 
files were soon moved to 7.0. As 
for EAG's 7.0 editor, it is an 
improvement, but still too cum- 



bersome. NUEDIT.6 became 
NUEDIT.7. 

Along with the version 7.0 
game creation materials, Tom 
included a beta version of a new 
''Multi-disk Supplement" 
(which, he notes, has never ac- 
tually been used to create a 
game) and materials for author- 
ing in 40 or 80 column ProDOS. 
Since my adventure is not seri- 
ously pushing 7.0's normal 1- 
diskette limit, and DOS 3.3 
works on our 11+ and Ilgs, and 
our Eamons are all DOS 3.3 
versions, I haven't tried the 
MDS or ProDOS stuff yet. 
(Speed would be a decisive Pro- 
DOS advantage except that 
most "DOS 3.3" users actually 
run some version of Beagle's 
Prontodos.) 

Granted, ProDOS may be 'the 
wave of the future'; and, in fact, 
EAG now has ProDOS versions 
of roughly half the adventures. 
For now, 7.0 under '3.3 is, by 
far, the best tested, best docu- 
mented format for Eamon au- 
thoring. Most of the newly re- 
leased 'Guide for Eamon Ad- 
venture Designers and Players 
is devoted to version 7.0 play, 
utilities, and programming. 

Note: The 21-page 'Guide' is 
available from Computist. It's 
the best introduction yet to 
Eamon adventuring AND it 
saves the bother of printing out 
the on-disk 7.0 manual. You'll 
find plenty of nuts & bolts de- 
tail covering Eamon text files, 
MAIN PGM, and LEADIN PRO- 
GRAM (a 'raw' game startup 
program where you can place 
introductory text? etc.). Evi- 
dently, the booklet is free with 
every order. There is one er- 
ror — one which occurs in the 
on-diskette manual, too — on 
page 14, artifact Format 1 shows 
parm 5 as "Weapon type" and 
parm 6 as "Complexity"; it 
should say parm 5 is "Complex- 
ity" and parm 6 is "Weapon 
type". 

The 'Guide' recommends that 
a game author have most of his/ 
her scenario mapped-out BE- 
FORE even booting up the edi- 
tor. Perhaps experienced 
Eamon makers actually do it 
that way. Newcomers, howev- 
er, can learn a great deal by 
starting with a rough idea, cre- 
ating a few rooms with neat 
things to find and monsters to 
fight; and, then, giving the new 
adventure a try as a player. 
Changing (a copy of) an exist- 
ing adventure is another good 
way to get started. Whatever 
your approach, once into creat- 
ing an Eamon world you won't 
want to stop. Eamoneering is 
addictive stuff! 

No PC?! 

As far as I know, there is no 
PC or other non-Apple II equiv- 
alent for the Eamon Guild of 
Adventurers. (And, after speak- 
ing with Tom Zuchowski, my 
impression is that Hell may well 
freeze over before EAG changes 
its Il-only policy.) Clearly, con- 
verting and test-playing 200+ 



adventures for another machine 
format is the sort of task one 
normally assigns to a monas- 
tery. It isn't likely to happen. 

Happily, our PC-only readers 
can get into Eamon via a low- 
cost 'Eamon Kit'! According to 
flyers from some Apple-stuff 
vendors, an Apple 11+ with mono 
monitor sells for $58. Add a disk 
drive and 80-column card (re- 
quired for just a few adventures) 
and your total cost should fall 
somewhere around $200. (Com- 
parable He and Ilgs 'kits' sell 
for about $450.) 

The Programs 

NUEDIT.792 lets you edit a 
version 7.0 adventure or create 
one from scratch on a formatted 
diskette. (It will work in 40 or 
80 column mode, whichever is 
active when the program is run.) 
When started, NUEDIT first 
asks you to insert the diskette 
to be edited. If NUEDIT detects 
an incompatible version it will 
tell you and then exit. If a com- 
patible (7.x) version is detected 
NUEDIT takes you to the main 
menu ready to do editing. 

If no adventure is found, 
NUEDIT will ask if you want to 
start a new adventure; if "YES", 
you will be asked for a name 
and the number of movement 
directions (6 for NSEWUD or 
10 to permit NE, NW, etc. move- 
ment). NUEDIT then creates 
the standard Eamon TEXT files 
(7.0 default values are in pa- 
rentheses): 

EAMON.NAME: Name of the 
adventure. Number of direc- 
tions (6 or 10), and Version num- 
ber (7.0) 

EAMON.DESC: descriptions 
of Rooms (records 1-200), Arti- 
facts (201-400), Effects (401- 
600), Monsters (601-800). 
*DESC Record length is 242; 
max length of each description 
is 238. Record of this file has 
current counts of rooms, arti- 
facts, effects, and monsters fol- 
lowed by record lengths for the 
'ROOMS (72), 'MONSTERS 
(92), and 'ARTIFACTS (72) files. 

EAMON.ROOMS: Each 
record has Name of a "room'*/ 
location (max length= 38), room 
# Destination for each move- 
ment direction (for each direc- 
tion, 0= none), and room Lumi- 
nation (1= lighted, means the 
player must have a lighted 
torch, etc. to see). 

EAMON.ARTIFACTS: Each 
record has Name of the artifact 
(max length= 30), Value in gold. 
Type #, and Starting location 
plus four additional parms. The 
meaning of the latter depends 
upon artifact type. The 7.0 
MAIN PGM recognizes 1 1 arti- 
fact types (e.g. Treasure, Weap- 
on, Container, Door, etc.). 
NUEDIT includes formatsAa- 
bels for all 11 and allows 4 addi- 
tional user-defined types. 

EAMON.MONSTERS: Each 
record has Name of the "mon- 
ster'' (max length= 30) followed 
by 11 parms to set hardiness, 
friendliness, starting room #, 
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etc.. Each record can describe 
just one monster or a group of 
same-kind monsters. 

There is no separate *EF- 
FECTS file because an effect is 
a text message (max length= 
238) contained entirely in 
^DESC. 

At the start of new adventure 
creation, NUEDIT writes just 
one dummy record for each 
game element (room #1, arti- 
fact #1, effect #1, and monster 
#1). 

Once at the main menu you 
press 'R' to view/edit Rooms, *A' 
for Artifacts, etc.. When 'R', 'A', 
'E', or 'M' is selected you are 
given the choice of entering the 
number of the room, etc. to view/ 
edit OR pressing '+' to create 
one or more new records, (i.e. 
after selecting 'M', pressing '+' 
and entering "25" will create 25 
dummy, ready-to-edit monster 
records.) 

Most of the time you will be 
viewing/editing. For example, 
pressing 'R' and entering "73" 
will produce a display showing 
the room #, Room 73's name, 
the room's description, and the 
# of the room or door/gate you 
can reach by movement in each 
direction. Prompts at the bot- 
tom of the screen indicate that 
you may move to Room 72 or 
Room 74 using the arrow keys; 
OR, you may move to a destina- 
tion room by pressing a direc- 
tions key (like 'N', 'S', etc.). If 
the destination is a door/gate 
artifact, NUEDIT checks to see 
that the door and 'room beyond' 
both exist and automatically 
moves you to the room on the 
other side of the door. (Note: 
NUEDIT ignores any attempt 
to view or do anything to a room, 
artifact, etc. which does not yet 
exist.) 

Entering 'C and then, say, 
"142" copies the current room 
to Room 142. Entering '#' and, 
say, "55" is a quick way to hop 
to Room 55. 

'Z' lets you edit displayed in- 
formation. The cursor is set at 
the beginning of each item's 
field and you enter text or num- 
bers as appropriate. (Pressing 
'RETURN' with no changes re- 
tains the original and moves 
you to the next item.) Text edit- 
ing is the same as in EAG's 
editor (CTRL-I inserts a space, 
etc.). One important change is 
that any text character at the 
length limit for a Name or De- 
scription is automatically 
pushed out when you do an in- 
sert. When done, NUEDIT lets 
you 'Save' the changed Room, 
'Redo' editing without throw- 
ing away your work, or scrap 
the changes (the original dis- 
play appears). 'SPC exits to the 
main menu and CLOSEs all 
open files. 

Viewing and editing Arti- 
facts, Effects, and Monsters 
works much the same. When 
you have fixed choices, as in 
picking an artif act's Type, the 
current selection is shown (e.g. 

"Container") and the "< >" 

prompt reminds you to make 



your selection using the arrow 
keys. 

Other main menu options let 
you change your adventure's 
name or get a Room Connec- 
tions display. The Name Change 
option affects the name stored 
in EAMON.NAME and, possi- 
bly, the name of the your ad- 
venture's startup program. (The 
startup program is a user-made 
program or renamed LEADIN 
PROGRAM which has the same 
name as the adventure. To start 
play MAIN HALL reads 
EAMON.NAME to get the ad- 
venture's name and runs the 
startup program, which ends by 
running the main game pro- 
gram.) If a startup program has 
not yet been placed on the ad- 
venture diskette or it is still 
named LEADIN PROGRAM, 
etc., then Name Change affects 
only the name in 

EAMON.NAME. 

The Connections option is 
very helpful for quickly check- 
ing your adventure's layout. It 
shows the selected room's des- 
tinations (or "exits") by direc- 
tion ALONG WITH the exits for 
each destination. (Due to clut- 
ter, this option is not available 
in 10-direction mode.) 

THE WONDERFUL WORLD 
OF EAMON and MAIN HALL 
programs have changed very 
little over the years. One enter- 
prising author did produce an 
Ultima I-style map-graphics 
version of MAIN HALL. "Graph- 
ics MAIN HALL" seeks to patch 
a serious Eamon deficit, the 
absence of a cumulative Expe- 
rience numiber, by letting you 
convert gold into attribute and 
skills boosts at various train- 
ing centers and shops. GMH 
never 'caught on', partly be- 
cause 1. It is too easy to over- 
enhance your character; and, 2. 
Having to steer a figure around 
on the screen maps slows down 
transactions. Mainly, though, 
the problem is format. A graph- 
ics interface doesn't 'belong' in 
the Hall. The TEXT Main Hall 
remains the standard, accepted 
version because that's the way 
Eamon players like it. 

Modified versions of Eamon's 
two core programs plus the new 
EXP.UPDATE program are list- 
ed in this issue. They add sev- 
eral enhancements without dis- 
turbing Eamon's traditional 
'look' and feel: 

Experience- The new MAIN 
HALL automatically runs 
EXP.UPDATE each time you 
return alive from an adventure. 
Your character gains Experi- 
ence based upon gold obtained, 
new/better weapons brought 
back, and any gains in at- 
tributes and skills awarded by 
the scenario. Experience trans- 
lates into Level advancement, 
whereupon you can select an 
attribute or skill to increase. 
The same program also records 
and displays the name of each 
adventure you have experienced 
along with the number of times 
played. 



Roster- in 'WORLD OF 
EAMON, a new option lets you 
display names of all characters 
in the CHARACTERS file. You 
can also obtain an Experience 
display for any character show- 
ing adventures played and num- 
ber of times for each. 

Restoration- It is no longer 
necessary to run a separate util- 
ity to restore a killed-off char- 
acter. In 'WORLD OF EAMON 
you need only visit The Temple 
of Restoration. 

Locker- in MAIN HALL, a 
character who meets the Level 
requirement can buy a space in 
the Adventurer's Lockers. This 
space holds up to eight weap- 
ons. You can visit your locker at 
any time when at the Main Hall 
to deposit, retrieve, or swap-in 
items. 

Status- the MAIN HALL char- 
acter status display shows Ex- 
perience and Level along with 
more detailed information on 
Magic skills and Armor Exper- 
tise. Similarly, displays for the 
Banker, Weapon Shop, and 
Magician now include useful 
information (e.g. gold in your 
possession, spells you already 
know, etc.) to help speed-up and 
simplify transactions. 

Since installing the above en- 
hancements, my dad and I have 
played through something like 
fifty adventures including an- 
cient "AAA Eamon" versions of 
the earliest scenarios, newer 6.2 
games with and without GAME 
SAVE, and the latest 7.0 sce- 
narios. That the mods work and 
are compatible with any CHAR- 
ACTERS file and characters 
already in existence is not espe- 
cially remarkable given that 
information ispassed back and 
forth among Eamon programs 
via TEXT files. Inputs and out- 
puts are clear-cut and easy to 
keep track of. The same applies 
to the two new files each active 
character acquires: a name.EXP 
file (for experience data) and a 
name.LOC file (for locker data). 

Probably, the most important 
mod is the incorporation of a 
true Experience attribute and 
recording of a character's ad- 
ventures. The purpose is to up 
the stakes and deliver a more 
tangible payoff for player suc- 
cesses than mere gold. Advanc- 
ing in Level and getting to in- 
crement Hardiness, Agility, etc. 
certainly qualifies. So does the 
'status symbol' value of a high 
Level ranking. Now, even 'weak- 
ie' scenarios are worth complet- 
ing; and, of course, a character 
with a long record of adventure 
credits (i.e. a genuine, provable 
history) becomes more real and 
more fun to play. 

So far, so good. However, as 
veteran E am oners well know, 
there are some adventures 
which shower the character 
with enormous wealth, hefty 
attribute boosts, and double- 
digit skills gains. Other scenar- 
ios may be just as extreme in 
the other direction. Either way, 
Experience would be devalued. 



Consequently, EXP.UPDATE 
includes a 'change filter' which 
suppresses scenario-induced 
shifts in attributes and skills to 
just a point or so. In the same 
spirit, beyond roughly 10000 
gold, wealth increase has little 
effect on calculated Experience 
gain; and, to squelch the 'honey 
pot' effect, potential Experience 
gain is less each time you re- 
play any adventure. 

Experience is also the one 
change likely to evoke some 
suspicion of risky, bomb-prone 
trickery. There are just three 
'tricks', all fairly straightfor- 
ward. First, to derive an experi- 
ence gain, EXP.UPDATE com- 
pares the character's status and 
possessions before the adven- 
ture (saved in name. PRE) with 
status and possessions after. 

To remember the name of the 
adventure, MAIN HALL copies 
it into the DOS error message 
area before running the adven- 
ture. This does no harm; and 
EXP.UPDATE is able to retrieve 
the name when you return. (If 
the adventure is restarted from 
a SAVEd game, EXP.UPDATE 
detects an invalid name and 
asks you to reinsert the adven- 
ture diskette long enough for it 
to read the name.) Finally, 
MAIN HALL needs to know 
whether it was RUN by an ad- 
venture's MAIN PGM (if you 
are alive, it sends you to 
EXP.UPDATE) or by either 
'WORLD OF EAMON or 
EXP.UPDATE (you stay in the 
Main Hall). It can tell by PEEK- 
ing at the command buffer. The 
"RUN MAIN HALL" commands 
in 'WORLD' and 'UPDATE' have 
extra spaces inserted. 

Of the other changes, only the 
Locker offers benefits which 
may not be apparent, especially 
to new players. The old MAIN 
HALL ownership limit of four 
weapons looks okay UNTIL you 
consider that 1. Weapons break! 
It's nice to have a good backup; 
2. You want to develop skills for 
all FIVE weapon types; 3. It is 
handy to have some high quali- 
ty weapons to carry into an ad- 
venture for use by allies you 
may acquire; and 4. When 
you've got your Locker and it's 
full, you are certain to complain 
that the eight extra spaces are 
not nearly enough! (I settled for 
eight to avoid having to scroll 
the Lockers display.) 

To install the enhanced 
Eamon play programs, first 
make a 'just in case' backup of 
your "Eamon Master" play dis- 
kette. Now, copy the new pro- 
grams. The 'WORLD OF 
EAMON and MAIN HALL will 
replace versions already there. 
EXP.UPDATE uses 21 sectors; 
and, for the new .EXP and .LOG 
files which will be created, you 
should figure on 8 or so sectors 
per active character. That's it. 
Veteran Eamoners caii look for- 
ward to a new dimension of play. 
As for newcomers, the Wonder- 
ful World of Eamon awaits! 
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The Wonderful World of 
Eamon 

REM THE WONDERFUL WORLD 
OF EAMON ' 

1 REM BOOT -UP PROGRAM FOR 
EAMON UNIVERSE 

4 REM ORIG . RULES & CORE 
PROGRAMS BY DON BROWN 

6 REM 

7 REM ON -GOING 
DEVELOPMENT : TOM 
ZUCHOWSKI, E.A.G. 

8 REM EAMON ADVENTURER'S 
GUILD 7 625 HAWKHAVEN DR. 
CLEMMONS, NC 27012 

9 REM (919) 766-7490 

10 REM 

11 REM PLAYER INPUTS 
CHARACTER NAME AND (IF 
EXISTING CHAR) GOES TO 
MAIN HALL. 

12 REM IF NAME NOT IN 
'CHARACTERS' FILE THEN 
'NEW CARACTERS' PROGRAM 
IS RUN 1ST. 

13 REM 

14 REM 7/92 MODS BY JEFF 
HURLBURT (COMPUTIST 
MAGAZINE) 713-645-8680 : 

15 REM 1- PLAYER CAN 
RESTORE DEAD CHAR AT THE 
'TEMPLE' . 

17 REM 2- PLAYER CAN VIEW 
RXPERIENCE RECORDS OF 
CHARACTERS VIA THE 
'ROSTER' . 

24 REM 

25 REM DRAGON PICTURE 
SHOWN 

26 REM DURING PROGRAM BY 

27 REM R.L. PHILLIPS & 
FRIENDS 

28 REM OF ANN ARBOR^ MICH. 

29 REM THE BEAUTY IS 
GREATLY 

30 REM ENJOYED. 

31 REM 

50 GOTO 100 

55 PRINT DK$ ; "OPENOCHAR 
ACTERS,L150" : PRINT 
DK$ ; "READOCHARACTERS , 
RO" : INPUT NC: PRINT : 
RETURN 

60 HOME : HTAB INT ((40 - 
LEN (Q$) ) / 2) : PRINT 
Q$: FOR I = 1 TO 39: 
PRINT "_" ; : NEXT I: 
PRINT : PRINT : RETURN 

67 Q$ = "rOoOsOtOeOrOOoOf 
OOhOeOrOoOeOS" :GOSUB 60 

70 GOSUB 55: FOR R = 1 TO 
NC: PRINT DK$; "READOCH 
ARACTERS,R" ;R: INPUT A$ 

72 PRINT " [" ; SPC ( R < 
10) ;R; "]0" ; : IF A$ = 
"" THEN INPUT "" ;A$: 
PRINT "-" ; 

73 INPUT "" ;HD,AG,CH: 
PRINT A$; 

75 HTAB 28: PRINT HD; "0" 
;AG; "0" ;CH 

77 NEXT R: PRINT DK$ 
"CLOSE" 

78 PRINT : INPUT "<CR>OTOO 

exitOorO#OtoOviewO»0" 

;A$: IF A$ = "" THEN 140 

79 QQ = ASC (A$) : IF QQ < 
49 OR QQ > 57 THEN 140 

80 QQ = VAL (A$) : IF QQ > 
NC THEN 140 

81 GOSUB 55: PRINT DK$; 
"READOCHARACTERS , R" ; QQ : 
INPUT NA$ : PRINT DK$ 
"CLOSE" : HOME : IF NA$ 
= "" THEN PRINT : PRINT 
"FIRST, OYOUOMUSTOVISITO 
THEOTEMPLE" : PRINT "TOO 

restoreOthisOcharacter. " 
: gosub 580: goto 67 

82 PRINT "THEOAD VENTURES 
OOFO" NA$: PRINT 

83 Z$ = NA$ + " .EXP" 

84 ONERR GOTO 95 



85 PRINT DK$ "UNLOCK" Z$: 
PRINT DK$ "OPEN" Z$: 
PRINT DK$ "READ" Z$ 

86 FOR I = TO 8: INPUT 
P(I) : NEXT I 

87 POKE 216,0 

88 PRINT "LEVEL:0" ;P(2); 
"OOOOexperience:0" ;P(1) : 
PRINT : FOR I = 1 TO 39: 
PRINT "_" ; : NEXT I : 
PRINT 

89 POKE 34,6: VTAB 7:QQ = 
0:J = 1 

90 FOR I = J TO P(0) :QQ = 
QQ +1: INPUT E$,N%: 
PRINT E$; SPC( 31 - LEN 

(E$) ) ;N%; LEFT$ ( 
"OTIMES" , 6 - (N% = 1) ) 

91 IF QQ > 14 THEN 93 

92 NEXT I 

93 QQ = 0: PRINT DK$ 
"CLOSE" : PRINT 
"0<KEY>0" ; : GET Q$ : 
HTAB 1: PRINT SPC ( 9): 
PRINT :J=I+1: IFJ< 
= P(0) THEN PRINT DK$ 
"OPEN" Z$: PRINT DK$ 
"POSITION" Z$ ",R" ;I * 
2 + 9 : PRINT DK$ "READ" 
Z$: GOTO 90 

94 PRINT : POKE 34,0: GOTO 
98 

95 print "thisocharacter 
OdoesOnotOyetOhave" : 

PRINT "ANO AD VENTURING 
ORECORD.O" ; 

97 GET Q$: PRINT 

98 POKE 216,0: PRINT DK$ 
"CLOSE" : GOTO 140 

100 TEXT : HOME : NORMAL 

105 PRINT : PRINT "EAMON 
OADVENTURER ' SOGUILD " : 
PRINT "7 6250HAWKHAVEN 
ODR." : PRINT "CLEMMONS, 
0NC027012" : PRINT 
"(919)766-7490" : FOR I 
= 1 TO 250: NEXT : PRINT 

110 DK$ = CHR$ (4) : PRINT 
DK$; 'FBLOA^OEAMON.PIC, 
A$4000" :ZZ = PEEK ( - 
16299) + PEEK ( - 16297) 
+ PEEK ( - 16302) + PEEK 
( - 16304) 

120 X = RND ( - PEEK (78) 
- PEEK (79) ) 

125 PRINT DK$ "OPENOSNAPPY 
,L64" : PRINT DK$ "READO 
SNAPPY, RO" : INPUT NS:R 
= INT ( RND (1) * NS + 
1) : PRINT DK$ "READOSNJ^ 
PY,R" ;R: INPUT CM$:C1$ 
= LEFT$ (CM$,23):C2$ = 
MID$ (CM$,24): PRINT DK$ 
"CLOSEOSNAPPY" 

127 ONERR GOTO 131 

130 PRINT DK$; "OPENOCHAR 
ACTERS,L150" : PRINT 
DK$ ; "READOCHARACTERS 
,R0" : INPUT NC:R = 1 / 
NC: PRINT DK$; "READO 
CHARACTERS , Rl " : INPUT 
A$: PRINT DK$ "CLOSE" : 
GOTO 135 

131 POKE 216,0: PRINT DK$ 
"CLOSE" : PRINT DK$ 
"DELETEOCHARACTERS" : 
PRINT DK$ "OPENOCHAR 
ACTERS,L150" : PRINT DK$ 
" WRITEOCHARACTERS , RO " : 
PRINT 1: PRINT DK$ 
"WRITEOCHARACTERS, Rl" 

132 PRINT : PRINT 
"NUGUY92" 

133 FOR I = 1 TO 12: PRINT 
"11" : NEXT I: PRINT "0" 
: PRINT "M" : PRINT 

"2 00" : PRINT "0" : 
PRINT "0" 

134 FOR I = 1 TO 4: PRINT 
"NONE" : PRINT "0" : 
PRINT " " : PRINT "0,0 " 

: NEXT I: PRINT DK$ 
"CLOSE" 

135 POKE 216,0: FOR X = 1 
TO 500:1 = RND (1) : IF 



PEEK ( - 16384) < 128 

THEN NEXT X 
137 X = PEEK ( - 16368) : 

TEXT 
140 HOME : PRINT "OOOyOU 

OareOinOtheOouterOcham 

BEROOFOTHE" : PRINT 

"hallOofOtheOguildOofO 
freeOadventurers . " : 

PRINT "MANYOMENOANDO 

womenOareOguzzlingObeer" 

145 PRINT "ANDOTHEREOIS 

OloudOs ingingOandOlaugh 
ter." : print : print 
"OOOonOtheOnorthOsideOofO 
theOchamberOis" 

150 PRINT "AOCUBBYHOLEO 

withOaOdesk . OoverOtheO 

DESK" : PRINT "ISOaOSIGN 
OWHICHOSAYSO ' REGISTER 
OHERE" 

152 PRINT "OROVISITOTEMPLE 
OOFOrESTORATION" : PRINT 
"OROVIEWOROSTER" : PRINT 
"OROELSE? '" : PRINT 

160 PRINT : PRINT "DOOYOUO 

goOoverOtoOtheOdesk, Ojoin 

OTHE" : PRINT "OOBEERO 
DRINKERS , OVISITOTHEO 

temple, oor" : print 

"OOcheckOoutOtheOroster 

OofOheroes?" 

190 PRINT : PRINT "00(HIT0 

'D'O'B'O'T'OorO'R' .)00" 

; : GET A$ : PRINT : IF A$ 

= "D" THEN 220 
195 IF A$ = "T" THEN GOSUB 

500: PRINT : GOTO 140 
197 IF A$ = "R" THEN 67 
200 IF A$ < > "B" THEN 140 
210 PRINT : PRINT : PRINT 

"OOOasOyouOgoOoverOtoOthe 

OmEN,OYOUOFEEL" : PRINT 
: PRINT "AOSWORDObEINGO 

thrustOthroughOyour 

OBACK" 
215 PRINT : PRINT "ANDOYOU 
OHEAROSOMEONEOSAY, ' YOU 
OREALLY'' : print : PRINT 

"mustOlearnOtoOfollowO 
directions!'" : goto 345 
217 Q$ = "tOhOeOOmOaOiOnOO 
dOeOsOK" : GOSUB 60: 
RETURN 

220 gosub 217: print "you 
OareOgreetedOhereObyOa 

ObURLY" : PRINT : PRINT 

" irishmanOwhoOlooksOatO 

YOUOWITHOaOSCOWL" : 
PRINT : PRINT "ANDOASKS 
OYOU, ' WHAT ' SOYOURONAME 
?'" : GOTO 235 

230 PRINT 

235 PRINT : PRINT "YOUO 
GIVEOHIMOYOURONAME . " : 
PRINT : INPUT "0»>0" 
;NAME$ 

239 IF NAME$ = "" THEN 
GOSUB 217: VTAB 5: PRINT 

" ' noOname , OnoOgame . OyeO 

CANNAOBEONOSIN'" : PRINT 
: PRINT "ABOUTOTHEOHALLO 
NAMELESS ! OCOMEOBACK 
OWHEN" : PRINT : PRINT 

"yeObeOreadyOtoOmakeOaO 

BITOO ' OSENSE . ' " : GOSUB 
580: GOTO 140 

240 PRINT : IF LEN (NAME$) 
< 2 OR LEFT$ (NAME$, 1) < 
"A" OR LEFT$ (NAME$,1) > 
"Z" THEN GOSUB 400: GOTO 
230 

250 IF LEN (NAME$) > 20 
THEN GOSUB 217: PRINT 
" ' " NAME$ " ? ! » " : PRINT 
: PRINT "OOOHEOSCOWLSOAT 
OyOUOANDOSAYS , ' YER" : 
PRINT : PRINT "NAME'SO 

tooOlongOferOmeObook . OOl 
ocanna" : print : print 
"useOmoreOthanOtwenty 

OLETTERS . " : PRINT : 
GOTO 230 
2 60 PRINT "OOHEOSTARTSO 

lookingOthroughOhisO 
book, " : print : print 



"MUTTERINGOaBOUTO" ; CI $ : 
PRINT : PRINT C2$ : PRINT 

270 GOSUB 55: FOR R = 1 TO 
NC: PRINT DK$; "READO 
CHARACTERS, R" ;R: INPUT 
A$: IF A$ = NAME$ THEN 
330 

280 NEXT R: PRINT DK$ : 
PRINT "OOOheOeventuallyO 

LOOKS OATOYOUOANDOS AYS, " 
: PRINT : PRINT "'YER 

Oname ' sOnaOinOhere . Ohave 

OyeOGIVEN" : PRINT : 
PRINT "ITOTOOMEOARIGHT 
? ' " : PRINT : PRINT 
"howOdoOyouOanswerO (HITO 
•Y'OorO'N')00" ; 

290 GET A$: PRINT A$ : 

PRINT : IF A$ = "N" THEN 
GOSUB 400: GOTO 230 

310 PRINT "OOOHEOHITSOHISO 
FOREHEADOANDOSAYS, ' AH, " 
: PRINT : PRINT "YEOMUST 
OBEONEWOHERE ! OOWELL, OWAIT 
OJUST" : PRINT : PRINT 

"aOminuteOandOi ' llObringO 

SOMEONEOOUTOTO" : PRINT 
: PRINT "TAKEOCAREOOF 
OYE . ' " : PRINT 

32 gosub 350: print dk$; 
"runOnewOcharacters 

,S6,D1" 
330 PRINT DK$: PRINT : 
PRINT "OOOHEOLOOKSOUPO 
ANDOS AYS , ' AH , OHEREOYE " 
: PRINT : PRINT "BE!0 

OwELL, OgoOandOhaveOfunO 

INOTHEOhALL ! ' " : PRINT 
340 GOSUB 350: PRINT DK$ ; 
"RUNOOOMAINOHALL , S 6 , D1 " 

344 REM ///END: CLOSE 
ADDED 

345 PRINT DK$ "CLOSE" : 
PRINT : END 

350 PRINT DK$; "OPENOTHE 
OADVENTURER" : PRINT 
DK$; "WRITEOTHEOADVEN 
TURER" : PRINT NAME$ : 
PRINT R: PRINT DK$; 
"CLOSE" : RETURN 

399 REM ///NO NAME ROUTINE 

400 GOSUB 217: VTAB 5 
410 CNT = CNT + 1: IF CNT 

> 1 THEN 450 
420 PRINT "OHEOpULLSOOUTO 
AOSWORDOANDOBEGINSOtO " : 
PRINT " SHARPENOIT , OSAY 
INGO ' YE ' dObestObeO 
GIVIN'" : PRINT "MEOYERO 

nameOladdie, OifOyeOknow 

OWOTS" : PRINT "GOODOFER 

OyE ! ! ! " 
430 RETURN 
450 IF CNT = 2 THEN PRINT 

" I ' veO ' boutOhadOmeOfillO 

O'OYEROSICK" : PRINT 
" SENSAO ' UMOR ! ! " : PRINT 
"NOWOGIMMEOYEROnAME ! ! " : 
RETURN 
460 IF CNT = 3 THEN PRINT 

"theOmanOcutsOoneOofO 

YOUROfINGERSOOFF ! ! " : 
PRINT "HEOTHENOEATSOIT? ? 
! ! " : PRINT "THENOHEO 

SAYSO ' areOyeOreadyOt ' 

OTALKONOW?" : RETURN 

47 if cnt < 13 then print 
"theOmanOcutsOoffO 

ANOTHEROFINGER! ! ! " : 
PRINT "HEOEATSOTHISOONE 
OTOO ! ! " : RETURN 
480 PRINT "THEOMANOSTARTSO 
SLOWLY, ' WELLOYEOBEO" : 
PRINT "OUTTAOFINGERS! '" 
: PRINT "THEOMANOTHENO 

sp insOaroundOandOruns 

OYOU" : PRINT "THROUGHO 

withOaOspeedOyouOhave 

ONEVER" : PRINT "SEENO 
BEFORE ! (ANDONEVEROWILL 
OAGAIN.)" : GOTO 345 
499 REM THE TEMPLE 
50 Q$ = "THEOTEMPLEOOFO 

RESTORATION" : GOSUB 60 
505 PRINT "WHOOISOTOOBE 
Ore STORED?" : PRINT : 



COMPUTIST #89 



Readers Data Exchange 



INPUT "0»0" ;NA$ 

510 IF NA$ = "" OR NA$ = 
"0" THEN 590 

530 GOSUB 55: FOR R = 1 TO 
NC: PRINT DK$ "READO 
CHARACTERS , R" ;R: INPUT 
N$: INPUT ME$ 

535 IF N$ = NA$ THEN PRINT 
: PRINT N$ "OISOINOGOOD 
OSHAPE ! " : PRINT DK$ 
"CLOSE" : GOTO 580 

540 IF N$ < > "" THEN 555 

550 IF ME$ = MID$ {NA$,2) 
THEN 560 

555 NEXT R: GOTO 570 

560 PRINT DKS "WRITEO 

CHARACTERS , R" ;R: PRINT 
NA$: PRINT DK$ "CLOSE" : 
PRINT : PRINT "OKAY.O" 
;NA$; '^OisOreSTORED ! " : 
GOTO 580 

57 PRINT "IOCAN'TOfIND 
OANYODEADO" ;NA$: PRINT 
DK$ "CLOSE" 

580 PRINT : PRINT "<KEY>0" 
; : GET Q$ : PRINT Q$ 

590 RETURN 



Checksums 



0-$92CC 
1-$DB99 
4-$8756 
6-$9CEl 
7-$2AFA 
8-$D0BB 
9-$4029 
10~$17DA 
ll-$9535 
12-$CB6C 
13-$03FA 
14-$8039 
15-$5232 
17-$9D8D 
24-$8316 
25-$8144 
26-$86ED 
27-$B6A6 
28-$4CCD 
29-$5E0B 
30-$lDDA 
31-$9535 
50-$52D6 
55-$4B64 
60-$4180 
67-$2AED 
70-$30BA 
72-$BFE3 
73-$5BC6 
75-$B0AA 
77-$DC8A 
78-$271B 
79-$5E26 
80-$24AF 
81-$ABB5 
82-$739E 
83-$70FE 
84-$82A7 
85-$7E2B 



86-$AE33 

87-$EF54 

88-$3639 

89-$DF9B 

90-$6282 

91-$4C59 

92-$0E8B 

93-$DDC7 

94-$CA4C 

95-$704C 

97-$C0Dl 

98-$51C4 

100-$097E 

105-$2E40 

110-$CD05 

120-$F060 

125-$E482 

127-$D003 

130-$699C 

131-$08EF 

132-$7654 

133-$00D8 

134-$BE80 

135-$7800 

137-$4869 

140~$351F 

145-$6214 

150-$B068 

152-$D9E3 

160-$14B1 

190-$43AA 

195-$1B5D 

197-$B401 

200-$D3FF 

210-$AAF4 

215-$1DB0 

217-$4AD1 

220-$8950 

230-$7A6F 



235-$BC93 
239-$A457 
240-$E971 
250-$E70C 
260-$C0AF 
270-$D082 
280-$E968 
290-$152F 
310-$FEB2 
320-$DE26 
330-$6EE6 
340-$9A60 
344-$E076 
345-$97A8 
350-$E475 
399-$0ClF 
400-$4CE3 
410-$0CD7 
420-$837F 
430-$9023 
450-$354C 
460-$65EA 
470-$7D68 
480-$D0E3 
499-$9211 
500-$E351 
505-$B2FB 
510-$653C 
530-$282A 
535-$6775 
540"$DC11 
550-$25CC 
555-$4618 
560-$5E6F 
570~$D39B 
580-$DCBD 
590-$2537 



Main HaU 



2 

3 



REM 

REM MAIN HALL (BUY STUFF 

& GO ON ADVENTURES) 

ORIG. BY DONALD BROWN 

REM 

REM REV. 9/92: ADDS 

LOCKER/ IMPROVED CHAR 

STATS DISPLAYS/ 

EXPERIENCE . . . 

4 REM BY JEFF HURLBURT 
(COMPUTIST MAGAZINE) 
713-645-8680 

5 REM 8000 SUB: Q9=l MEANS 
HALL RUN FROM AN 
ADVENTURE 

7 GOSUB 800 

8 PRINT CHR$ (4) 
"MAXFILES03" 

9 TEXT : HOME : NORMAL : 
SPEED= 255 



10 DK$ = CHR$ (4) :U$ = 



Editors note: ''Inline #10, U$ 
contains 39 underlines. 

16 VTAB 5: PRINT "EAMONO 
ADVENTURER' SOGUILD" : 
PRINT "7 6250HAWKHAVEN 
ODR." : PRINT "CLEMMONS, 
0NC027 012" 

17 DIM SA%(5) ,WA%(6) ,WN$ 
(6) ,WT%(6) ,WO%(6);WD%(6) 
,WS%(6) ,LN${8) ,LT%(8) , 
L0%(8) ,LD%(8)yLS%(8) 

20 ONERR GOTO 7000 
30 PRINT DK$; "OPENOTHEO 
ADVENTURER" : PRINT DK$ ; 
"READOTHEOAD VENTURER" : 
INPUT NAME$: INPUT REC : 
PRINT DKS; "CLOSE" 
35 IF Q9 = 1 THEN PRINT 
DK$ "RUNEXP. UPDATE" : 
END 

37 ONERR GOTO 49 

38 Q$ = NAME$ + ".EXP" : 
PRINT DK$ "OPEN" Q$ : 
PRINT DK$ "READ" Q$ : 
INPUT XN,XE,XL: PRINT 
DKS "CLOSE" 

40 REM OLD ONERR GOTOIOO 
42 QS = NAMES + ".LOC" : 
PRINT DKS "OPEN" QS : 
PRINT DKS "READ" QS : FOR 
I = 1 TO 8: INPUT LNS(I) 
,LT%(I) ,LO%(I) ,LD%(I) 
,LS%(I): NEXT I : LQ =1 

49 PRINT DKS "CLOSE" 

50 PRINT DKS; "OPENOCHAR 
ACTERS,L150" : PRINT 
DKS ; "READOCHARACTERS r R" 
;REC: INPUT NAMES: INPUT 
HD,AG,CH: FOR X = 1 TO 
4: INPUT SA%(X): NEXT : 
FOR X = 1 TO 5: INPUT 
WA% (X) : NEXT : INPUT AE 

60 INPUT SEXS 

70 INPUT GOLD, BANK: INPUT 

AC : FOR W = 1 TO 4 : 

INPUT WNAMES (W) , WTYPE% 

(W) ,WODDS% (W) , WDICE% (W) 

,WSIDES%(W): NEXT W: 

PRINT DKS; "CLOSE" 
73 FOR I = 1 TO 4: IF 

WNS(I) = "" THEN WNS = 

"NONE" 
75 IF WNS (I) = "NONE" THEN 

WO%(I) = 0:WD%(I) = 

0:WS%(I) = 
77 NEXT I 
80 DEF FN P(X) = INT (X * 

RTIO + .5) 
90 POKE 216,0 
100 HOME :Q = FRE (0) 
102 HTAB 9: PRINT "TOhOeO 

OmOaOiOnOOhOaOlOl" : for 

I = 1 TO 39: PRINT "_" 
; : NEXT I : PRINT : PRINT 
105 PRINT "ASOYOUOWANDERO 
ABOUTOTHEOHALL,OYOU" : 
PRINT "REALIZ|rOYOUOCAN 
ODOOONEOOFOSESVENOtHINGS : " 
: PRINT : PRINT "OI.OOGO 

OonOanOadventure . " : 
print : print "02.00vis 
itOtheOweaponOshopOfor 
Oarms . " 
110 print : print "03.0 
OhireOaOwizardOtoOteach 

OyOUOSPELLS . " : PRINT : 
PRINT "04.00FINDOTHEO 
BANKEROTOODEPOSITOOR" : 
PRINT "OOOOOWITHDRAW 
OSOMEOGOLD . " : PRINT : 
PRINT "05.00EXAMINE0 
YOUROABILITIES." 

115 print : print "06.00go 
OtoOtheOadventurers '0 
lockers . " : print : 

PRINT "07.00TEMPORARILY 

OleaveOtheOuniverse . " 
120 print : print : print 
" (hitOtheOkeyOforOyour 

0CHOICE,0l-7) " ; 



130 GET AS:CMD = VAL (AS) : 
IF CMD < 1 OR CMD > 7 
THEN 130 

140 PRINT CMD: PRINT : ON 
CMD GOTO 1000,2000,3000, 
4000,5000,5500,6000 

200 PRINT NAMES 

202 PRINT HD: PRINT AG: 
PRINT CH: FOR X = 1 TO 
4 : PRINT SA% (X) : NEXT : 
FOR X = 1 TO 5: PRINT 
WA%(X): NEXT : PRINT AE : 
PRINT SEXS 

210 PRINT GOLD: PRINT 

BANK: PRINT AC: FOR W = 
1 TO 4 : PRINT WNAMES (W) : 
PRINT WTYPE% (W) : PRINT 
WOODS %(W) : PRINT 
WDICE%(W): PRINT 
WSIDES%(W) : NEXT W 

220 RETURN 

300 IF LQ THEN QS = NAMES 
+ ".LOC" : PRINT DKS 
"OPEN" QS: PRINT DKS 
"WRITE" QS: FOR I = 1 TO 
8: PRINT LNS(I): PRINT 
LT%(I): PRINT L0% (I) : 
PRINT LD%(I) : PRINT 
LS%(I): NEXT I: PRINT 
DKS "CLOSE" 

310 RETURN 

10 00 HOME :Q = LEN (NAMES) 

10 03 PRINT DKS; "OPENO 

CHARACTERS, L150" : PRINT 
DKS ; "WRITEOCHARACTERS 
,R" ;REC: PRINT : PRINT 
RIGHTS (NAMESfQ - 1): 
GOSUB 202: PRINT DKS; 
"CLOSE" 

10 05 QS = NAMES + ".PRE" : 
PRINT DKS "OPEN" QS : 
PRINT DKS "WRITE" QS: 
GOSUB 200: PRINT DKS 
"CLOSE" QS 

1007 GOSUB 300 

1010 home : vtab 5: print 
"insertOdisketteOwithO 

AD VENTUREO ( OROKEEP " : 
PRINT : PRINT "THISODISK 

etteOforObeginnersOcave) 

OiN" : PRINT : PRINT 

"diskOdriveOinOslotOsix, 

ODRIVEOONEOTHEN" : PRINT 
: PRINT "HITO'C" : 
PRINT : PRINT : PRINT : 
PRINT "00000" ; : POKE - 
16368,0 

1020 GET AS: IF 
THEN 1020 

1030 PRINT 

10 40 PRINT DKS; 
EAMON.NAME" : 
"READOEAMON . NAME " : 
INPUT ADNAMES: PRINT 
DKS; "CLOSE" 

1045 GOSUB 8100 

1047 HOME : FOR I = 1 TO 
12: J = 25 - I: VTAB I: 
PRINT US: VTAB J: PRINT 
US: NEXT I: FOR I = 12 
TO 1 STEP - 1:J = 25 - 
I: VTAB I: PRINT SPC ( 
40) : VTAB J: PRINT SPC ( 
40) : NEXT I 

1050 VTAB 10: PRINT "YOUO 
AREOABOUTOTOOAD VENTURE 
OiN" : PRINT : INVERSE : 
PRINT ADNAMES: NORMAL : 
PRINT : PRINT 

10 60 PRINT DKS; "OPENO 

FRESHOmEAT" : PRINT DKS; 
"WRITEOFRESHOMEAT" : 
PRINT REC: GOSUB 200: 
PRINT DKS; "CLOSE" : 
PRINT DKS; "RUNO" 
; ADNAMES 

1920 FOR W2 = ZW TO 
4:WNS(W2) = WNS(W2 + 
1):WT%(W2) = WT%(W2 + 
1) :W0%(W2) = W0%(W2 + 
1):WD%(W2) = WD%(W2 + 
1):WS%(W2) = WS%(W2 + 
1) : NEXT W2 :WNS(4) = 
"NONE" : RETURN 

1940 HOME : HTAB 4 : PRINT 

"iOgOmOo ' OsOOlOoOcOkOeO 



AS < > 



"OPENO 
PRINT DKS; 



rOs,OOiOnOc." 

1941 PRINT US: GOSUB 

50 60 :W = 0: FOR I = 1 TO 
4:W = W + WNS(I) = 
"NONE" : NE3CT I: PRINT : 
IF LQ < 1 THEN GOSUB 
5008: PRINT : GOTO 1944 

1942 X = 0: PRINT 

"INOSTORAGE " : FOR I 

= 1T0 8:X = X + LNS(I) 
= "NONE" :Q = ABS 
(L0%(I)): print LNS(I);: 

HTAB (24 - (LO%(I) < 0) 
+ (Q < 10) + (Q < 100)) : 
PRINT LO%(I); "%0000" 
;LD%(I); "OdO" ;LS%(I): 
NEXT I: PRINT 

1944 RETURN 

1945 FOR I = 

< > WNS(I) 

1946 RETURN 

1947 FOR I = 

< > LNS(I) 

1948 RETURN 

1950 HOME : HTAB 10: PRINT 

"tOhOeOObOaOnOkOeOr" : 
PRINT US: GOSUB 5008: 
PRINT : PRINT : RETURN 

1970 HOME : HTAB 10: PRINT 
" tOhOeOOwO iOzOaOrOd " : 
PRINT US: GOSUB 5008: 
GOSUB 5010: PRINT : 
PRINT : RETURN 

19 90 HOME : HTAB 9: PRINT 
" wOeOaOpOoOnOOsOhOoOp " : 
PRINT US: GOSUB 5040: 
•PRINT : GOSUB 5008: 
PRINT : RETURN 

19 98 PRINT : PRINT 
"<kEY>0" ; : GET QS : 
PRINT QS: RETURN 



1 TO 


4: IF QS 


THEN 


NEXT I 


1 TO 


8: IF QS 


THEN 


NEXT I 



1999 GOSUB 
GOTO 100 

2000 GOSUB 
20 02 GOSUB 
20 03 GOSUB 
2005 PRINT 



1998: PRINT 



1990: GOTO 2005 
1998: PRINT 
1990: GOTO 2015 

"asOyouOenterO 
theOweaponOshop, OMARCOS" 

: PRINT "CAVIELLI0(THE0 
OWNER) OCOMESOFROMOOUTO 
OF" : PRINT "THEOBACKO 
ROOMOANDOSAYS , ' WELL , 

OasOi" 

2010 PRINT "LIVEOANDO 
BREATH, OIFOITOISN ' TOMYO 
OLDOPAL" : PRINT NAMES 
" ! " : PRINT 

2015 PRINT "SO,OYOUOWANT 
OTOOBUYOaOWEAPON, OSELL" : 
PRINT " AOWEAPON, OOROGET 
OSOMEOBETTERO ARMOUR? " 

2017 PRINT : PRINT "(HIT 

OspcOtoOexitOorOb, Os, 

A)0" ; 
2020 C2 = CH + INT (11 * 
RND (1) - 5) :C2 = C2 + 
(C2 = 0) :RTIO = 10 / C2 

2030 get as: print as: for 
tr = 1 to 3: if as < > 
midS ( "bsa" ,tr,1) then 
next tr: gosub 19 90: on 

1 + INT ( RND (1) * 1.9) 
+ (GOLD < 300) GOTO 
2210,2289,2113 
2040 PRINT : ON TR GOTO 
2050,2220,2490 

2050 if wns (4) < > "none" 
then gosub 1990: print 
"marcosOsmilesOatOyouO 

AND0SAYS,0'THATSA" : 
PRINT "GOOD , OBUTOFIRST 

OyouOgottaOsellOmeOa" : 

PRINT "WEAPON. OYOUO 

knowOtheOlaw- -noOmore 

OTHAN" : PRINT "FOURO 

weaponsOperOperson ? ' " : 
print : goto 2 002 
2060 gosub 1990: print 
"marcosOsmilesOatOyou 

OaNDOS AYS , ' GOOD . " : 
PRINT "IOGOTTAOTHEOBEST. 
OYOUO WANT AO AXE , OBO W , " : 
PRINT "MACE,OSPEAR,0 
OROSWORD?" : PRINT : 
GOSUB 2650: IF AS = "X" 
THEN 2003 
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2070 GOSUB 1990: PRINT 
"MARCOSOSAYS/ ' WELL , OlO 
JUSTOHAPPENOTO" : PRINT 
"HAVEOTHREEO" ;N$; "SOIN 
, OOFOVARYING" : PRINT 
"QUALITY .01 ' VEOGOTOaO 
VERYOGOODOONEOfOR" : 
PRINT FN P(2 * BP); "OGP 

, OaOf airOoneOforO " ; FN 

P(BP) ; "OGP," 

20 80 PRINT "ANDOaOkINDAO 
SHABBYOONEOfORO" ; FN 
P(BP / 2) : PRINT 
"WHICHOdoOYOUOwANT? ' " : 
PRINT : PRINT " (HITOTHE 
Okey, OgOfOorOp) 000" ; 

20 90 GET A$: PRINT A$ : FOR 
Q = 1 TO 3: IF A$ < > 
MID$ ( "GFP" ,Q,1) THEN 
NEXT : GOTO 22 87 

2100 P = BP + BP * (Q = 1) 
- BP / 2 * (Q = 3) :P = 
FN P(P) 

2110 IF P < = GOLD THEN 
2120 

^2111 gosub 1990: print 
"marcosOshakesOaOfingerO 

ATOyOUOaNDOSAYS, " : 
PRINT " ' YOUOSHOULDN ' TO 
PLAYOTRICKSOONOANOOLD V : 
PRINT "FRIEND!'" : PRINT 

2113 PRINT "'COMEOBACKO 
WHENOYOUOGOTTAOMORE" ; 
PRINT "GOLDOOROYOUOWANT 
OSOMETHINGOYOUOCIU^" : 
PRINT "AFFORD. 'OMARCOS 
OWAVESOASOYOUOLEAVE . " : 
GOTO 199 9 

2120 FOR W = 1 TO 4: IF 
WN$ (W) = N$ THEN N$ = N$ 
+ "#" : GOTO 2120 

2130 NEXT W: FOR W = 1 TO 
4: IF WN$(W) < > "NONE" 
THEN NEXT 

2140 WN$(W) = N$:WT%(W) = 
TP:WO%(W) = 10 * (2 - 

q):wd%(w) = dice:ws%(w) 
= sides: gold = gold - p 
2150 gosub 1990: print 
"marcosOhandsOyouOyourO 

WEAPONOANDOTAKES " : 
PRINT "THEOPRICEOFROMO 
YOU . " : PRINT 

2160 GOSUB 1998 

2170 GOSUB 1990: PRINT 

"heOnowOasksOyou, ' NOWO 

HOWOABOUTOSOME" : PRINT 
"ARMOUR? ' " : PRINT : 
PRINT " (HITOyOORON)OOO" ; 

2180 GET A$: PRINT A$ : IF 
A$ = "N" THEN PRINT : ON 
1 + SH GOTO 2580,2210 

2190 IF A$ = "Y" THEN 2490 

2200 GOTO 2003 

2210 PRINT "MARCOSOSMILESO 
ANDOSAYS , ' COMEObACK" : 
PRINT "AGAINOSOON! ' OAS 

OheOshoosOyouOoutOofOhis" 
: print "shop." : print 

: GOTO 1999 
2220 GOSUB 1990: PRINT 

"marcosOasksOyou, ' ISO 

THISOwEAPONOYOU" : PRINT 

"wantOtoOsellOmeOaOstan 

DARDOWEAPONOLIKE" : 

PRINT "I0SELL?00(HIT0'Y' 

OORO'N')00" ; 
2230 GET A$: IF A$ = "Y" 

THEN 2350 
22 40 IF A$ < > "N" THEN 

2003 
2250 PRINT A$: PRINT :P = 

INT (50 / RTIO + .5) : 

print "marcososaysyo' 
thenOiOcanOonlyOgiveOyou" 

: PRINT P; "OGOLDOPIECES 

OforOit , OtakeOitOor" : 

PRINT "LEAVEOIT!'" : 

PRINT : PRINT " (HITOtO 

OROL)000" ; 
2260 GET A$: PRINT A$ : IF 

A$ < > "T" THEN 2003 
2280 PRINT : GOSUB 1990: 

PRINT "MARCOSOSAYS , ' OK 

AY , OWH AT ' VEOYOUOGOT ? " : 

PRINT : INPUT 



" (WEAPONONAME)O" ;W$: IF 
W$ = "" THEN 2287 

22 83 for w = 1 to 4: if 
wn$ (w) < > w$ then next 
: print : print "marcos 
OfrownsOatOyouOandOsays , 

O'YOU" : PRINT "CAN 'TO 

sellOaOweaponOyouOdon ' T 

OOWN! '" : GOTO 2002 
22 85 IF W$ < > "NONE" THEN 

22 90 
22 87 GOSUB 1990: PRINT 

"MARCOSOSAYS , ' IOTHINKO 

youOareOwastingOmyO 

TIME ! " 

22 8 9 print : print "marcos 
OshoosOyouOoutOofOhis 
ostore." : goto 1999 

2290 L = 5 * ( LEFT$(W$,5) 
= "SWORD" OR LEFT$(W$,5) 
= "SPEAR") + 4 * ( LEFT$ 
(W$,4) = "MACE" ) + 3 * 
( LEFT$ (W$,3) = "BOW" 
OR LEFT$ (W$,3) = "AXE" 
) : IF L = THEN 2300 

2292 gosub 1990:n$ = left$ 
(w$,l): print "marcoso 
frownsOatOyouOandOsays, " 
: print : print "'thiso" 
N$ "OisOaOweaponOlikeOi 

OSELL, " : PRINT 
"REMEMBER!'" : GOSUB 
1998: GOTO 2420 

2300 print :gold = gold + 
p:zw = w: gosub 1920 

2303 gosub 1990: print 
"marcosOgivesOyouOyour 

OmONEYOANDOtAKES" : 
PRINT "YOUROWEAPON. " : 
GOSUB 19 98 

2310 GOSUB 1990: PRINT 
"MARCOSOASKSOYOU, ' HOWO 
ABOUTOBUYINGOA" : PRINT 
"WEAPON? ' " : PRINT : 
PRINT " (HITOyOORON)OOO" ; 

2320 GET A$: PRINT A$ : IF 
A$ = "Y" THEN PRINT : 
GOTO 2050 

2340 PRINT : GOTO 2170 

2350 GOSUB 1990: PRINT 
"MARCOSOASKS, O'WELL, 
OWHATOWEAPONOYOU" : 
PRINT " WANT AORE TURN?" : 
PRINT : GOSUB 2 650: 
PRINT : IF A$ = "X" THEN 
2003 

2360 W2 = W: FOR W = 1 TO 
4 : IF LEFT$ (WN$ (W) , LEN 
(N$)) < > N$ THEN NEXT : 
PRINT "MARCOSOLAUGHSO 
ANDOSAYS , ' YOUONEVER" : 
PRINT "BOUGHTOONEOFROMO 
ME , OREMEMBER? ' " : PRINT 
: GOTO 2002 

2370 BP = BP + BP * (WO%(T 
) > 5)- BP/2 * (WO%(T ) 
<- 5) :P = INT (BP/RTIO + 
.5) : IF P > BP / 4 THEN 
P = INT (BP / 4 + .5) 

2380 GOSUB 1990: PRINT 
"MARCOSOEXAMINESOYOURO" 
N$ "OAND" : PRINT "SAYS, 

' looksaOlikeOyou ' VEO 

DINGEDO'ER" : PRINT 
"AObIT . OiOCANOOFFERO" ; P ; 
"OGOLDOPIECES . ' " : PRINT 

2381 PRINT "'TAKEOITOOR 
OLEAVEOiT . ' " : PRINT : 
PRINT " (HITOtOOROL)OO" ; 

2390 GET A$: IF A$ < > "T" 

THEN 2003 
2410 PRINT : GOTO 2300 
2420 PRINT : FOR X = 1 TO 

4: IF MID$ ( "ABMS" 

,X,1) = LEFT$ (WS,1) 

THEN ON X GOTO 

2440,2450,2460,2470 
2430 NEXT X 

2440 BP = 25: GOTO 2370 
2450 BP =40: GOTO 2370 
2460 BP = 20: GOTO 2370 
2470 IF MID$ (W$,2,l) = 

"P" THEN BP = 25: GOTO 

2370 
2480 BP = 50: GOTO 2370 



2490 A2 = INT (AC / 2):SH 
= AC - A2 * 2:B1 = 25 * 
(A2 = 1) + 60 * (A2 = 2) 
+ 100 * (A2 = 3) :TI = 
INT (Bl / RTIO + .5) 

2495 gosub 1990: print 
"marcosOtakesOyouOtoOtheO 

ARMOUROSECTION" : PRINT 

"ofOhisOshopOandOshows 

OyOUOSUITSOOF" : PRINT 

"leatherOarmour, OchainO 

ARMOUR, OANDOP LATE . " : 
GOSUB 1998: IF TI > Bl * 
2 THEN TI = Bl * 2 

2500 gosub 1990: print 
"heOsays , ' iOcanOputOyouO 

INOANYOOFOTHESE" : PRINT 

" veryOcheaply . OOiOneedO" 

; FN P(IOO) / "OGOLD" : 
PRINT "PIECESOFOROTHE 
0LEATHER,0" ; FN P(250); 
"OFOR" : PRINT "THEOCHA 
IN,0AND0" ; FN P (500) ; 
"OFOROTHEOPLATE . " : PRINT 

2510 IF TI THEN PRINT 

" ALSO , OiOCANOGIVEOYOUOaO 
TRADE -INOONOyOUR" : 
PRINT "OLDOARMOUROOFO" 
; TI ; "OGOLDOPIECES . " : 
PRINT 

2520 PRINT "WELL,OwHATO 
WILLOitObE?'" : PRINT : 
PRINT " (HITOSPCOOROL, 
0C,0P)0" ; 

2530 GET A$: PRINT A$ : FOR 
A = 1 TO 4: IF A$ < > 
MID$ ( "NLCP" ,A, 1) THEN 
NEXT : ON 1 + (SH > 0) 
GOTO 2580,2003 

2540 PRINT : IF A = 1 THEN 
2570 

2550 P = FN P(100 * (A = 
2) + 250 * (A = 3) + 500 
* (A = 4) ) - TI: IF P > 
GOLD THEN GOSUB 1990: 
PRINT "MARCOSOFROWNSO 

whenOheOseesOthatOyouOdo " 

: PRINT "NOTOHAVEOENOU 

ghtOtoOpayOforOyour" : 

PRINT "ARMOUROANDOSAYS,0 

' iOdon ' tOgiveOcredit ! ' " 
: print : goto 2570 

2560 GOLD = GOLD - P:A2 = 
A - 1:AC = A2 * 2 + SH: 
GOSUB 1990: PRINT "MARC 
OS OT AKE S OYOUROOLDO ARMOUR 
OANDOYOUR" : PRINT "GOLD 

OandOhelpsOyouOintoOyour 

ONEW" : PRINT "ARMOUR." 
2570 GOSUB 1998: IF SH 
THEN 2003 

2580 gosub 1990: print 
"marcosOsmilesOandOsays , 

' NOWOHOWO ABOUT " : PRINT 

"aOshield?OOiOcanOletOyou 

OHAVEOONEOFOR" : PRINT 
"ONLYO" ; FNP(50); "OGO 
LDOpiECES!'" : PRINT : 
PRINT " (HITOyOORON) " ; 
2590 GET A$: PRINT A$ : IF 
A$ = "N" THEN PRINT : ON 

1 + INT ( RND (1) * 1.9) 
GOTO 2289,2210 

2600 IF A$ < > "Y" THEN 
2003 

2610 print a$: print : if 
gold < fn p(50) then 
gosub 1990: print "when 
OheOseesOthatOyouOdoOnot 

OhAVE" : PRINT "ENOUGHO 

goldOtoObuyOtheOshield, 

MARCOS" : PRINT "FROWNS 

OandOsays, ' I 'mOsorry, 

BUTOI" : PRINT "DON 'TO 
GIVEOCREDIT! '" : PRINT : 
GOTO 2113 
2620 GOLD = GOLD - FN 

P(50) :SH = 1:AC = A2 * 2 

+ sh: gosub 1990: print 
"marcosOtakesOyourOgoldO 

ANDOGIVESOYOU" : PRINT 
"AOSHIELD." : GOTO 2 003 

2640 END 

2650 PRINT " (HITOTHEOKEY 

(S) , OaObOmOspOorOsw) 00" 



2660 GET A$: FOR W = 1 TO 
4: IF A$ < > MID$ ( 
"ABMS" ,W, 1) THEN NEXT 
W: GOTO 2755 

2670 ON W GOTO 2680,2690 
,2700,2710 

2680 PRINT "AXE" :BP = 
25:N$ = "AXE" :TP = 
1:SIDE = 6: GOTO 2750 

2 690 PRINT "BOW" :BP = 
40 :N$ = "BOW" :TP = 
2: SIDE = 6: GOTO 2750 

2700 PRINT "MACE" :BP = 
20:N$ = "MACE" : TP = 
3: SIDE = 4: GOTO 2750 

2710 PRINT A$; : 

2720 GET A$: IF A$ = "P" 
THEN PRINT "PEAR" :BP = 
25:TP = 4: SIDE = 5:N$ = 
"SPEAR" : GOTO 2750 

2730 IF A$ < > "W" THEN 
2755 

27 40 PRINT "WORD" :BP = 
50:N$ = "SWORD" : TP = 
5: SIDE =8 

2750 DICE = 1: RETURN 

2755 A$ = "X" : PRINT A$ : 
RETURN 

2760 END 

3000 GOSUB 1970: GOTO 3005 

3002 PRINT : GOSUB 1998 

3003 GOSUB 1970: GOTO 3015 
3005 PRINT "AFTEROaOFEWO 

minutesOdiligentOsearch 

ING, " : PRINT "YOUOfINDO 

hokasOtokas , OtheOoldO 

MAGE.OHE" : PRINT "LOOKS 

OatOyouOandOsays , ' soOyou 

OWANTOOLD" : PRINT "TOK 

eyOtoOteachOyouOsomeO 

MAGIC , OHEHOHEH?" 

3010 PRINT "WELL,OlT'LL 
OCOSTOYOU.O" ; 

3015 PRINT "TODAYOmyOfEES 
OarE:" :C2 = CH + INT 
(11 * RND (1) - 5) :C2 = 
C2 + (C2 = 0) :RTIO = 10 
/ C2 

3020 PRINT "OOObLASTOO" ; 
FN P(3000); "GP" : PRINT 
"OOOheALOOO" ; FN P(IOOO) 
; "GP" : PRINT "OOOSPEED 
00" ; FN P (5000); "GP" : 
PRINT "OOOPOWEROO" ; FN 
P(IOO) ; "GP" : PRINT 

3030 PRINT "WELL,0WHICH0 
WILLOItObE?'" : PRINT : 
PRINT " (SPCOTOOLEAVEOORO 

pickOb, Oh, Os, Op) 0" ; 
3040 get a$: for sp = 1 to 

4: IF A$ < > MID$ ( 

"BHSP" ,SP,1) THEN next 

: PRINT : GOTO 3200 
3050 ON SP GOTO 3060,3070 

,3080,3090 
30 60 A$ = "BLAST" : PRINT 

A$:P = FN P(3000) : GOTO 

3100 
3070 A$ = "HEAL" : PRINT 

A$:P = FN P(IOOO): GOTO 

3100 
30 80 A$ = "SPEED" : PRINT 

A$:P = FN P(5000) : GOTO 

3100 
30 90 A$ = "POWER" : PRINT 

A$:P = FN P (100) 
3100 PRINT : IF P > GOLD 

THEN GOSUB 1970: PRINT 

"whenOhokasOseesOthatO 

YOUODON'TOhAVE" : PRINT 

"enoughOtoOpayOhim, OheO 

STALKSOtoOtHE" : PRINT 
"BAR, OMUTTERINGOABOUTO 
YOUNGSTERSOWHO" : PRINT 

" shouldObeOturnedOintoO 

FROGS." : GOTO 1999 
3110 IF SA%(SP) < = THEN 

3120 
3113 GOSUB 1970: PRINT 
"HOKASOSAYS , ' IOOUGHTO 
TOOTAKEOYOUR" : PRINT 
"GOLDOANYWAY, ObutOhave 
N ' TOYOUOFORGOTTEN" : 
PRINT "SOMETHING?OiO 

alreadyOtaughtOyouO" a$ 

11 I I tl 
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3114 IF CH > RND (1) * 28 
THEN 3002 

3115 PRINT : PRINT "SHAK 

ingOhisOheadOsadly, OheO 

RETURNSOTO" : PRINT 
"THEObAR." : GOTO 1999 
3120 GOLD = GpLD - 

P:SA% (SP) = INT (50 * 
RND (1) + 2 6) : GOSUB 
1970: PRINT "HQKASOtEACH 

esOyouOyourOspell, Otake 

S" : PRINT "HISOFEE.OaND 

OreturnsOtoOhisOstoolO 

ON" : PRINT "THEObAR." 
3125 PRINT "ASOYOUOwaLKO 

awayOyouOhearOhim" : 

PRINT "ORDEROaODOUBLE 
ODRAGONObLOMB . " : GOTO 
1999 
3200 GOSUB 1970: PRINT 

"asOyouOleave, OyouOhearO 

HOKASOMUTTERING" : PRINT 

"aboutOcheapskateOadvent 

URERSOALWAYS" : PRINT 

"wantingOsomethingOfor 

OnOTHING." : GOTO 1999 
4000 GOSUB 1950: GOTO 4005 

4002 PRINT : GOSUB 1998 

4003 GOSUB 1950: GOTO 4015 
4005 PRINT "YOUOHAVEOnoOTR 

OUBLEOSPOTTINGOSHYLOCK" 
: PRINT "MCFENNEY^OTHEO 

localObanker, OdueOtoOhis 

" : PRINT "LARGEObELLY." 

40 07 print : print "youo 
attractOhisOattention 

,0AND" : PRINT "HEOCOM 

esOoverOtoOyouOandOsays : " 

: PRINT 
4010 PRINT NAME$ " , OMYODE 
ARO" ; MID$ ( "GIRLBOY" 
, (SEX$ = "M" ) * 4 + 

1, 4) ; ", " : print "this 
OisOaOgenuineOpleasure ? " 

4015 print "DOOyOUOwISHOTO 
OMAKEOaODEPOSIT ( ! ) OOR, " 
: PRINT "PERHAPS, OaOTINY 
OWITHDRAWAL? '0(SPC/D/ 
W)0" ; 

4030 GET A$: PRINT A$ : IF 
A$ = "D" THEN PRINT : 
GOTO 4090 

40 40 IF A$ < > "W" THEN 
100 

40 45 IF BANK < 1 THEN 
PRINT "HA!OGOODOTRY,0" 
NAME$ " . " : PRINT 
"UNFORTUNATELY, OYOUR 
OaCCOUNT" : PRINT 
"BALANCEOISOzERO!" : 
GOTO 4002 

4050 PRINT : PRINT 

" SHYLOCKOSAYS , ' WELL , 
YOUOHAVEO" ;BANK: PRINT 
"GOLDOPIECESOSTOREDO 

wi thOme . Oho wOmanyOdo " : 

INPUT "YOUOWANTOTOO 

TAKEOBACK? ' 0»0 " ; A$ 
4053 IF A$ = "" THEN 4003 
4055 MNY = ABS ( INT ( VAL 

(A$) ) ) : IF MNY < = BANK 

THEN 4080 
4070 GOSUB 1950: PRINT 

MNY; "! ! !0(GASP) " : 

print : print 
"theObankerOthrowsOyou 

OaOTERRIBLEOGLANCE" : 
PRINT " ANDOS AYS , ' THAT ' S 

OmoreOthanOyou'veOgot ! " 

4075 IF CH > 28 * RND (1) 
THEN 4002 

4078 PRINT "YOUOKNOWOiO 
DON ' TOMAKEOLOANSOTO 
OyOUR" : PRINT "KIND! '00 

withOthatOheOlosesOhim 

SELFOIN" : PRINT "THEO 
CROWD." : GOTO 19 99 
40 80 GOLD = GOLD + 

MNY: BANK = BANK - MNY: 
GOSUB 1950: PRINT "THEO 
B ANKE ROH AND S YOUO YOURO 
GOLDOaND" : PRINT "SAYS, 

' thatOleavesOyouOwithO" 

;BANK: PRINT "PIECESOinO 
MYOCARE . ' OOheOshakes 
OyOUR" : PRINT 



"handOandOwalksOaway . " : 

GOTO 1999 

4090 gosub 1950: print 
"shylockOgetsOaOwideO 

GRINOONOhISOFACE" : 
PRINT "AND0SAYS,0' EXCEL 
LENT ! OHOWOMUCHOdOOYOU" : 
INPUT "WANTOTOODEPOSIT? 
'0»0" ;A$ 
4095 IF A$ = "" THEN 4003 
40 97 MNY = ABS ( INT ( VAL 
(A$) ) ) : IF MNY < = GOLD 
THEN 4120 

4110 gosub 1950: print 
"theObankerOisOveryO 
pleasedOwhenOyou" : 

PRINT "TELLOHIMOTHEOSUM, 
OBUTOwHENOheOD IS COVERS" 
: PRINT "THATOYOUOdON'TO 

haveOthatOmuchOonOyou, " 

4112 IF CH > 28 * RND (1) 
OR GOLD > 2 999 THEN 
PRINT "HEOHELPFULLYO 

suggestsOyouOsettleOfor" 

: PRINT "AO 'MODEST 'ODEP 
OSITOOFO" ;G0LD; ". " : 
GOTO 4002 

4113 PRINT "HEOWALKSOAWAY, 

Oshout ingOaboutOfools " : 

PRINT "WHOOPLAYOTRICKSO 
ONO ' KNIDLYOBANKERS ' . " : 
GOTO 1999 
4120 GOLD = GOLD - MNY: 
BANK = Bl^K + MNY: GOSUB 
1950: PRINT "SHYLOCKOTAK 

esOyourOmoney, OputsOit 

OiN" : PRINT "HISObAG, 
OLISTENSOTOOITO JINGLE, 
OTHEN" : PRINT "THANKS 
OYOUOANDOWALKSOAWAY . " : 
GOTO 1999 

5000 GOSUB 5004: GOSUB 
5010: GOSUB 5030 

5002 VTAB 23: POKE - 

16368,0: PRINT " (HITOaNY 
OKEYOtoOCONTINUE)00" ; : 
GET A$: PRINT : GOTO 100 

5004 Q$ = "MIGHTYO" : IF 
SEX$ = "F" THEN Q$ = 
"FAIRO" 

5005 HOME :Q$ = "THEO" + 
Q$ + NAME$:I = INT ((32 
- LEN (Q$) ) / 2) : HTAB 
I: PRINT Q$; SPC ( I) ; 
"LVLO" ;XL: FOR I = 1 TO 
39: PRINT "_" ; : NEXT I: 
PRINT 

5007 PRINT "EXPERIENCE :0" 
;XE; : HTAB 20 + (XE > 
99 999) : PRINT "ADVENT 
URES:0" ;XN: PRINT "ATTR 
IBUTES :0HD=" ;HD; "00AG=" 
;AG; "00CH=" ;CH: PRINT 

50 08 PRINT "GOLD0in0HAND=" 
;GOLD; ",0BANK=" ;BANK: 
PRINT 

5009 RETURN 

5010 PRINT "MAGICOSKILLS : 
0" ;:SM = 

5015 FOR S = 1 TO 4: IF 
SA%(S) THEN PRINT MID$ ( 
"BLASTHEALOSPEEDPOWER" 
, (S - 1) * 5 + 1,5) ; "0" 
; : SM = 1 

5017 NEXT S: IF NOT SM 
THEN PRINT "OZILCH ! " : 
PRINT : GOTO 5025 

5020 PRINT : PRINT SPC( 
12) ; : FOR S = 1 TO 4 : IF 
SA%(S) THEN PRINT SPC ( 
3) ;SA%(S) ; "%" ; 

5022 NEXT S: PRINT : PRINT 

5025 RETURN 

5030 PRINT "YOUROWEAPONO 
ABILITIESOARE — " : PRINT 

"OOaxeOOObowOOOclubO 
OspearOsword" 
5035 for i = 1 to 5: print 

SPC(1+(I = 3)-(WA%(I) < 
0)+( ABS (WA%(I)) < 10) 
+ ( ABS. (WA%(I)) < 100) ) 
;WA%(I) ; "%0" ; : NEXT I: 
PRINT : PRINT 
5040 A2 = INT (AC / 2) :Q$ 
= MID$ ( "SKINOOOLEATHER 
CHAINOOPLATEOO" ,A2 * 7 



+ 1,7): FOR I = 1 TO 7 : 
IF MID$ (Q$,I,1) < > "0" 
THEN NEXT I 

5043 Q$ = LEFT$ (Q$, I - 1) 

50 45 PRINT "ARMOUR :0" Q$; : 
IF AC > A2 * 2 THEN SH = 
1: PRINT "O&OSHIELD" ; 

5050 PRINT TAB( 26); "AE=" 
;AE; "%OaC=" ;AC: PRINT 

50 60 PRINT "WEAPONS"; TAB ( 
23) ; "COMPLEXOODAMAGE" 

5080 FOR I =1 TO 4:Q = 
ABS (W0% (I) ) : PRINT 
WN$ (I) ; : HTAB (24 - 
(W0%(I) < 0) + (Q < 10) 
+ (Q < 100) ) : PRINT 
WO%(I); "%0000" ;WD%(I); 
"OdO" ;WS%(I) : NEXT I 

50 95 RETURN 

54 99 REM ///LOCKERS 

5500 GOSUB 1940: GOTO 5505 

5502 GOSUB 1998 

5503 GOSUB 1940: GOTO 5515 

5505 PRINT "THEOLOCKERO 

attendantOgreetsOyou : 
'good" : print "after 

NOON, 0" NAME$ " ! ' " : IF 
LQ THEN 5514 

5506 IF XL > 6 AND GOLD > 
6999 THEN 5511 

5507 print : print "'come 
ObackOasOsoonOasOyou" 

5508 if xl > 6 then 5510 

5509 PRINT "REACH0LEVEL07. 

Oremember, OtheOpriceOis " 

: PRINT "JUST070 000GOLDO 
FOROaOROOMYOLOCKER! ' " : 
GOTO 1999 

5510 IF GOLD < 7000 THEN 
PRINT "HAVEOTHE070 0pO 

goldOtoOpurchase " : 

PRINT "YOUROOWNOLOCKER. ' " 
: GOTO 1999 

5511 PRINT : PRINT "AREO 

youOreadyOtoObuyOaO 

SPACE?0 (Y/N) 0" ; : GET 
Q$: PRINT Q$: IF Q$ < > 
"Y" THEN 19 99 

5513 PRINT : PRINT 

" ' EXCELLENT ! 0" ; : GOLD = 
GOLD - 7000: FOR 1=1 
TO 8:LN$(I) = "NONE" : 
NEXT I:LQ = 1: PRINT 

"yourOlockerOisOready . ' " 

5514 print "you0smile,0 

PICKOupOYOUROkEY, " : 
PRINT "ANDOGOOTOOYOURO 
LOCKER. " : GOTO 5502 

5515 PRINT "DOOYOUOSTOREO 

anOitemOorOretrieve 

OONE?" : PRINT "0(SPC 
OtoOeXITOOROS, OR) 0" ; : 
GET A$: PRINT A$ : GOSUB 
1940: IF A$ < > "S" THEN 
5540 

5525 INPUT "STOREOwHICH 
OlTEM?0" ;Q$: GOSUB 
1945 :ZW =1: IF Q$ = "" 
OR Q$ = "NONE" THEN 5503 

5527 IF ZW < 5 THEN 5533 

5530 GOSUB 1940: PRINT 
" YOUOhAVEONOO ' " Q$ " ' ! " 
: GOTO 5502 

5533 Q$ = "NONE" : GOSUB 
1947 :ZX =1: IF ZX < 9 
THEN 5550 

5535 INPUT "SWAPOFORO 

WHATOiTEM?0" ;Q$: GOSUB 
1947 :ZX =1: IF ZX < 9 
THEN 5550 

5537 GOSUB 1940: PRINT 
"NOO'" Q$ "'OisOINOSTOR 
AGE!" : GOTO 5502 

5540 IF A$ < > "R" THEN 
PRINT "'COMEOBACKO 
ANYTIME!'" : GOTO 1999 

5542 INPUT "GETOWHICHO 
ITEM?0" ;Q$: GOSUB 
1947 :ZX =1: IF Q$ = "" 
OR Q$ = "NONE" THEN 5503 

5543 IF ZX > 8 THEN 5537 
5545 Q$ = "NONE" : GOSUB 

1945:ZW = I: IF ZW < 5 
THEN 5550 
5547 INPUT "SWAPOFORO 
WHAT0ITEM?0" ;Q$: GOSUB 



1945 :ZW =1: IF ZW > 4 
THEN 5530 
5550 LN$(0) = WN$(ZW): LT% 
(0) = WT% (ZW) : LO%(0) = 
WO%(ZW): LD%(0) = WD% 
(ZW) :LS%(0) = WS% (ZW) 
5552 WN$(ZW) = LN$(ZX): 
WT%(ZW) = LT%(ZX): W0% 
(ZW) = LO%(ZX): WD%(ZW) 
= LD% (ZX) : WS% (ZW) = 
LS%(ZX) 
5555 LN$(ZX) = LN$(0):LT% 
(ZX) = LT%(0) :LO%(ZX) = 
LO%(0) :LD% (ZX) = LD%(0) 
:LS%(ZX) = LS% (0) 
5557 IF WN$(ZW) = "NONE" 
THEN GOSUB 1920: GOTO 
5580 

5559 Q$ = WN$(ZW) 

5560 FOR I = 1 TO 4: IF I 
= ZW THEN 557 

55 65 IF Q$ < > WN$(I) THEN 
5570 

5567 IF RIGHT$ (Q$,l) = 
"#" THEN Q$ = LEFT$ (Q$, 
LEN (Q$) - 1) + CHR$ (65 
+ INT ( RND (1) * 25) ) : 
GOTO 5560 

5568 Q$ - Q$ + "#" : GOTO 
5560 

5570 NEXT I:WN$(ZW) = Q$ 
5580 IF LN$(ZX) = "NONE" 

THEN 5503 
5583 Q$ = LN$(ZX) 
5585 FOR I = 1 TO 8: IF I 

= ZX THEN 5595 
5587 IF Q$ < > LN$(I) THEN 

5595 
5590 IF RIGHT$ (Q$,l) = 

"#" THEN Q$ = LEFT$ (Q$, 

LEN (Q$) - 1) + CHR$ (65 

+ INT ( RND (1) * 25) ) : 

GOTO 5585 
5592 Q$ = Q$ + "#" : GOTO 

5585 
5595 NEXT I:LN$(Z.X) = Q$ : 

GOTO 5503 
6000 HOME : VTAB 11 
6007 PRINT "ASOYOUOLEAVEO 

theOhall, OtheOirishman" 

: PRINT "COMESOUPOTOOYOU 

, OslapsOyouOonOtheOback" 

: PRINT "AND0SAYS,0'Y'ALL 

OcomeObackOrealOsoon, " : 

PRINT "YAOHEAH?'" 
6010 PRINT DK$; "OPENOCHAR 

ACTERS,L150" : PRINT DK$ ; 

" WRITEOCHARACTERS , R" 

;REC : GOSUB 200: PRINT 

DK$; "CLOSE" 
6015 GOSUB 300 
6020 PRINT DK$; "DELETEO 

THEOAD VENTURER" 
6030 END 
7000 PRINT DK$ "CLOSE" : 

PRINT "EXITOONO" ; PEEK 

(222) ; "0@0" ; PEEK 

(218) + 256 * PEEK 

(2,19); "." 
7017 IF PEEK (222) < > 5 

THEN PRINT : PRINT 

"KEYO»0" ; : GET Q$ : 

PRINT Q$ 

7019 PRINT CHR$ (4); "RUNO 

theOwonderfulOworldOof 

OEAMON" 

7020 END 

8000 Q9 = 0:F$ = "" : FOR 
I = 4 TO 8:F$ = F$ + 
CHR$ ( PEEK (512 + I) - 
128) : NEXT I 

8010 IF F$ < > "OOOmA" 
THEN Q9 = 1 

80 90 RETURN 

80 99 REM START ADV (SAVE 
NAME) 

8100 L = 43382: POKE L - 
1,40:F$ = ADNAME$:L9 = 
LEN (F$) : IF L9 < 7 THEN 
8130 

8110 IF LEFT$ (F$,4) = 
"THEO" then L9 = L9 - 
4:F$ = RIGHT$ (F$,L9) 

8130 POKE L,L9: FOR 1=1 
TO L9 
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Readers Data Exchange 



C0MPUT1ST#89 



Hail and well met, Eamon adventurer. 

COMPUTIST has news of great import for 
loyal supporters of Eamon and members in good 
standing at the Main Hall. There is a newsletter 
for Eamon Adventure Buffs. 



Yes! I want to support Eamon adventure and encourage new adventures to be 
written. Sign me up for a one year subscrition. 

n US & Canada: $7.00 D Foreign: $12.00 (U.S. funds) 

I also want to order some back issues at $1.75 each for 1-5 issues and $1.25 each 
for 6 or more issues. 

nJmi'88 DSep'88 D Dec'88 D Mar'89 D Jun'89 D Sep'89 
nDec'89 DMar'90 D Jim'90 D Sep'90 D Dec'90 D Mar'91 
D Jun'91 D Sep'91 D Dec'91 D Mar'920 D Jun'92 D Sep'92 

Total enclosed 



I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

I Address 

I 



Name. 



I City 

V. 



State 



_Zip_ 



44 



%^z (t^m<^n ^Hxituvtv*!^ ®uUy* 



Tom Zuchowski is the editor and driving force behind it. The 
newsletter is printed on 8.5" x 11 " bond, double sided with dot matrix 
type. It is non-profit (it's his hobby) and Tom's avowed purpose is to 
maintain a single point collection and clearing house for Eamon 
Adventures. He also intends to fix all known bugs in these adventures. 

This is a grand concept worthy of support. We highly recommend 
that you subscribe. This newsletter will help you keep in touch with 
other Eamon adventurers. But more important, it will improve the state 
of Eamon adventures and encourage new adventures to be written. Tom 
has accomplished a great deal along these lines already, not only fixing 
bugs but also improving the Eamon Main program and authoring the 
version 7.0 Dungeon Designer Disk. 

The "'Guild" is printed quarterly. A 1 year subscription is: 

US & Canada: $7.00 Foreign: $12.00 (U.S. funds) 

The Eamon Adventurer's Guild 

7625 Hawkhaven Dr. 

Clemmons,NC 27012 

(910) 766-7490 



Eainon Adventure for only $1 (or less) each 



D 1 Main Hall & Beginners Cave 

D 2 The Lair of the Minotaur 

n 3 The Cave of the Mind 

D 4 The Zyphur Riverventure 

D 5 Castle of Doom 

D 6 The Death Star 

D 7 The Devil's Tomb 

D 8 The Abduaor*s Quarters 

D 9 Assault on the Clonemaster 

D 10 The Magic Kingdom 

D 1 1 The Tomb of Molinar 

n 12 The Quest for Trezore 

D 13 Caves of Treasure Island 

D 14 Furioso 

D 15 Heroes Castle 

n 16 The Caves of Mondamen 

D 17 Merlin's Castle 

D 18 Hogarth Castle 

D 19 Death Trap 

D 20 The Black Death 

a 21 The Quest for Marron 

D 22 The Senator's Chambers 

n 23 The Temple of Ngurct 

D 24 Black Mountain 

D 25 Nuclear Nightmare 

D 26 Assault on the Mole Man 

D 27 Revenge of the Mole Man 

n 28 The Tower of London 

n 29 The Lost Island of Apple 

D 30 The Underground City 

n31TheGaundet 

D 32 House of m Repute 

33 The Orb of Polaris 

D 34 Death's Gateway 

D 35 The Lair of Mutants 

D 36 The Citadel of Blood 

n 37 Quest for the Holy Grail 

D38Cityintheaouds 

D 39 Museum of Unnatural History 

D 40 Daemon's Playground 

n 41 Cavems of Lanst 

n 42 Altemate Beginners Cave 

n 43 Priests of Xim! 

n 44 Escape from the Ore Lair 

D 45 SwordQuest 

D 46 Lifequest 

D 47 FutureQuest 

D 48 Picnic in Paradise 

D 49 The Castle Kophinos 

n 50 Behind the Sealed Door 

D 5 1 The Caves of Eamon Bluff 

D 52 The Devil's Dungeon 

n 53 Feast of Carroll 

D 54 Crystal Mountain 

D 55 The Master's Dungeon 

D 56 The Lost Adventure 

D 57 The Manxome Foe 

58 The Land of Death 

D 59 Jungles of Viemam 

D 60 The Sewers of Chicago 

n 61 The Harpy Qoud 

D 62 The Cavems of Doom 

D 63 Valkenburg Castle 

D 64 Modem Problems 

D 65 The School of Death 

D 66 Dungeons of Xenon 

D 67 Chaosium Caves 

D 68 The Smith's Stronghold 

D 69 The Black Castle of NaGog 

n 70 Ttie Tomb of Y'Golonac 

D 7 1 Operation Crab Key 

D 72 House on Eamon Ridge 

D 73 The Deep Canyon 

D 74 DharmaQuest 

D 75 Temple of the Guild 



n 76 The Search for Yourself 
D 77 Temple of the Trolls 

□ 78 The Prince's Tavem 

D 79 The Castle of Count Fuey 

D 80 The Search for the Key 

D 81 The Rescue Mission 

D 82 Escape from Mansi Island 

D 83 The Twin Castles 

D 84 Castle of Riveneta 

D 85 The Time Portal 

D 86 Castle Mantra 

n 87 Caves of Hollow Mountain 

D 88 The Shopping Mall 

D 89 Super Fortress of lin Wang 

D 90 The Doomsday Qock 

D 91 FutureQuest n 

□ 92 The Fugitive 
D 93 Flying Circus 
n 94 Blood Feud 

n 95 The Maze of Quasequeton 

D 96 The Chamber of the Dragons 

D 97 The House of Secrets 

D 98 Slave Pits of Kzorland 

D 99 In the Clutches of Torrik 

D 100 Sorceror's Spire 

D 101 Ground Zero 

D 102 The Eamon Railroad 

D 103 Top Secret 

D 104 The Lost World 

D 105 The Strange Resort 

D 106 Camp Eamon 

D 107 The Last Dragon 

D 1 08 The Mines of Moria 

D 109 The Forest of Fear 

D 1 10 Fire Island 

D 1 1 1 A Vacation in Europe 

D 112 Hills of History 

D 1 13 The life-Orb of Mevtrelek 

nil4Thror'sRing 

D 115 The Ring of Doom 

D 116 The Iron Prison 

D 1 17 Dungeon of Doom (40 col) 

D 1 17 Dungeon of Doom (80 col) 

D118PittfaU 

ail9AGranewalde 

D119BGnmewalde 

a 120 Orb of My Life 

a 121 Wrenhold's Secret Vigil 

D 122 The Valley of Death 

D 123 Wizard of the Spheres 

D 124 Assault on Ddni Keep 

D 125 The Mattimoe Palace 

D 126 The Pyramid of Anharos 

D 127 The Hunt for the Ring 

D128(}uestofErebor 

D 129 A Return to Moria 

D 129B Retum to Moria 

D 130 Haradwaith 

D 131 Nucleus of the Ruby 

D 132 Rhadshur Warrior 

D 1 33 The Final Frontier 

D 134 Pyramid of the Ancients 

n 135 The Tomb of Evron 

D 136 The Mountain Fortress 

n 137 The Ruins of Ivory Castle 

n 138 Starfirc 

D 139 Peg's Place 

D 140 Beginner's Forest 

D 141 The Infested Fortress 

D 142 The Beermeister's Brewery 

D 143 The Altemate Zone 

D 144 Gartin Manor 

n 145 A Buccaneer! 

n 145B Buccaneer! 

D 146 The House of Horrors 



D 147A The Dark Brotherfiood 

D 147B The Dark Brotherfiood 

n 148 Journey to Jotunheim 

D 149 A Elemental Apocalypse 

n 149B Elemental Apocalypse 

D 149C Elemental Apocalypse 

D 149D Elemental Apocalypse 

D 150 WaUed City of Daricness 

D 151 EamonS.A.R.-l(DenebRaid) 

D 152 The Computer Club of Fear 

D 153 Lost! 

D 154 A Trip to Fort Scott 

D 155 Tomb of the Vampire 

D 156 The Lake 

D 157 Pathetic Hideout of Mr R. 

D 158 The Lair of Mr Ed 

D 159 The Bridge of Catzad-Dum 

n 160 Monty Python & Holy Grail 

n 161A Operation Endgame 

D 161B Operation Endgame 

D 161C Operation Endgame 

D 162 Eamon 7.0 Demo Adventure 

D 163 The Sands of Mars 

D 164 A Real Cliffhanger 

n 165 A Animal Farm 

D 165B Animal Farm 

D 166A Storm Breaker 

a 166B Stonn Breaker 

n 166C Storm Breaker 

n 167 Expedition to the Darkwoods 

D 168 The High School of Horrors 

D 169 The Black Phoenix 

D 170 Ragnarok Revisited 

a 171 The Pyramid of Cheops 

D 172 The Mountain of the Master 

D 173 The House that Jack Built 

D 174 Escape from Granite Hall 

D 175 Anatomy of the Body 

D 176 Dirtie Trix's Mad Maze 

ni77ShippeofFooles 

D 178 The Alien Intrader 

n 179 The Wizard's Tower 

ni80Gammal 

n 181 The Eamon Sewer System 

a 1 82 Farmer Brown's Woods 

D 183 The Boy and the Bard 

D 184 Quest for Orion 

n 185 The Body Revisited 

D 186 Beginners Cave n 

D 187 Batman! 

D 188 Encounter: The Bookworm 

n 189 The Ruins of Belfast 

D 190 Shift Change at Grimmwax 



D Send me the Complete set of Eamon for: _ 

Total number of Adventure disks x $1 each =_ 

Add only if total # of disks ordered is less than 10: . 
Washington State residents only add 7.8% sales tax. . 



D 191 Enhanced Begirmers's Cave 

D 192 Mean Streets 

D 193 The Creature of Rhyl 

D 194 Attack of the Kretons 

D 195 The Training Grounds 

D 196 The House of Horrors 

n 1 97 Star Wars - Tempest One 

D 198 Revenge of the Bookworm 

a 199 Quest of the Crystal Wand 

200 The Lost Isle 

n 201 The Cavems of Vanavara 

D 202 The Plain of Srevi 

D 203 Lotto's Masterpiece 

D 204A Sancmary 

D 204B Sanctuary 

D 205 Utterly Outrageous 

D 206 Curse of the Hellsblade 

D 207 Eamon Renegade Qub 

D 208 Assualt on Helstar 

D 209 Apocalypse 2021 

D 210 Retum of Ngurct 

D 211 Lair of the Marauders 

n 212 Haunted Keep 

D 213 Demongate 

D 214 Deathstalker's Castle 

D 215 Treasure Island 

n 216 The Pirates Cave 

D 217 Eye of Agamon 

D 218 Retum to Pendrama 

D 219 The City of Sorcerors 

n 220 Catacombs of Terror 

D 221 Count Dracula's Castle 

D 222 The Halls of the Adept 

D 223 Time Shift 

D Ehmgeon Designer Diskette v7.0 
D Multi-Disk Supplement (DDD7.0) 
D Eamon Utilities Diskette 
D Graphics Main Hall 



S125.00 



$4.00 



Name _ 



Address _ 



City . 



_State 



_Zip. 



Country _ 
Visa 
MC _ 



. Exp_ 



Signature 

COMPUTIST, 33821 Orvllle Rd. E, Eatonvllle WA 98328-9590 



Adventure Gaming doesn't have 
to cost a lot. The Eamon Adven- 
ture Gaming system was created 
by Donald Brown and placed into 
the public domain. Since then it 
has been updated and improved 
by game players all over the 
world. Take a look at what $1 
will buy. (Get free games too.) 

Note: Some Adventures are 
multi-part and take more than 
one disk. Be sure you have se- 
lected all of the disks. 

The Eamon Master disk (#1) 
is required to play most adven- 
tures. 

Free 
Eamons 



Use the total number of adventures 
ordered to determine how many free 
adventures you get. 

Be sure and check the boxes of your 
free disks that you want but do not include 
free disks when figuring total number of 
disks ordered. 



lofdisluitSl 



# of Free (Ms 



1-9 





10-19 


2 


20-29 


5 


30-39 


9 


40-49 


14 


50-59 


20 


60-69 


27 


70-79 


35 


80-89 


44 


90-99 


54 


100-109 


65 


110-119 


77 


120-129 


90 



130-139 



104 



COMPUTIST #89 



Readers Data Exchange 



Complete set of Eamon 

All 238 disks (includes all 
adventures plus designer and utility 
disks.) $125 

Use your VISA/MC (206) 832-3055 

COMPUTIST 

33821 Orville Rd. E 

Eatonville WA 98328-9590 
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8140 POKE L + I, ASC ( 

MID$ (P$,I, 1) ) : NEXT I 
8150 RETURN 

Checksums 



0-$92CC 


16-$38F1 


50-$14B5 


1-$DB99 


17-$C92D 


60-$D925 


2-$9F59 


20-$3B18 


70-$E13E 


3-$7A8F 


30-$24AD 


73-$B3D0 


4-$C15F 


35-$lF66 


75-$6D88 


5-$8CM 


37-$678F 


77-$9353 


7-$CF81 


38-$656C 


80-$3CDA 


8-$.142B 


40-$E6B4 ' 


90-$3B3C 


9-$C02D 


42-$B354 


100-$2227 


10-$7A8F 


49-$6769 


102-$39C8 



EXP.UPDATE 

10 REM EXP.UPDATE 9/92: 
CALC/RECORD EXPERIENCE & 
LEVEL AFTER AN ADVENTURE 

20 REM BY JEFF HURLBURT 
(COMPUTIST MAGAZINE) 
713-645-8680 

100 DIM E$(300) ,N%(300) , 
P(8) 

110 DIM TA% (4) ,XA%(5) ,XNA 
ME$(4) ,XTYPE%(4) ,XODDS% 
(4) ,XDICE%(4) ,XSIDES%(4) 

120 DIM SA%(4) vWA%(5) ,WNA 
ME$(4) ,WTYPE%(4) ,WODDS% 
(4) /WDICE%(4) ,WSIDES%(4) 

130 PRINT :DK$ = CHR$ (4) 

140 PRINT DK$ "OPENOTHE 
OADVENTURER" : PRINT DK$ 
"READOtHEOAD VENTURER" : 
INPUT NA$: INPUT REC : 
PRINT DK$ "CLOSE" 

150 Q$ = NA$ + " .PRE" : 
PRINT DK$ "OPEN" Q$ : 
PRINT DK$ "READ" Q$ : 
INPUT NA$: INPUT HV.AV, 
CV: FOR I = 1 TO 4: 
INPUT TA%(I): NEXT I: 
FOR I = 1 TO 5: INPUT 
XA%(I): NEXT I: INPUT 
VAE 

160 INPUT SEX$ 

17 INPUT OGOLD.BANK: 
INPUT OAC: FOR I = 1 TO 
4: INPUT XN$(I) ,XT%(I) , 
XO%(I) ,XD%(I) ,XS% (I) : 
NEXT I: PRINT DK$ 
"CLOSE" : PRINT DK$ 
"DELETE" Q$ 

18 PRINT DK$ "OPENOCHAR 
ACTERS,L150" : PRINT DK$ 
"READOCHARACTERS , R" ; REC 
: INPUT NA$: INPUT HD.AG 
,CH: FOR I = 1 TO 4: 
INPUT S A% ( I ) : NEXT I : 
FOR I = 1 TO 5: INPUT 
WA%(I): NEXT I: INPUT AE 

190 INPUT SEX$ 

20 INPUT GOLD, BANK: INPUT 
AC: FOR I = 1 TO 4: 
INPUT WN$(I) ,WT%(I) ,W0% 
(I) ,WD%(I) ,WS% (I) : NEXT 
I: PRINT DK$ "CLOSE" 

210 REM (GET ADV NAME) 

220 L = 43382: IF PEEK (L 
- 1) = 40 THEN 270 

230 home : vtab 5: print 
" theOsecretaryOofOhallO 

RECORDSOLOOKS" : PRINT 

"atOyourOprintoutOandO 

SIGHS . ' FOROSOME " 
240 PRINT "REASON, ' OSHEO 
SAYS, ' THEONAMEOOFOYOUR" 
: PRINT "LATESTOQUESTO 

wasOnotOsentOin. '" 
250 print : print "<please 
Ore - insertOad ventureO 
diskette>0" ;: get q$ : 

PRINT 
252 ONERR GOTO 267 
2 60 PRINT DK$ "UNLOCKO 
EAMON.NAME" : PRINT DK$ 
"OPENOEAMON . NAME " : 
PRINT DK$ "READOEAMON 
.NAME" : INPUT F$ : PRINT 
DK$ "CLOSE" 
262 IF LEFT$ (F$, 4) = 

"THEO" then F$ = RIGHT $ 
(F$, LEN (F$) - 4) 



2 63 PRINT : PRINT " ' AH ! 
HEREOitOIS . ' " : PRINT 

265 GOTO 268 

2 67 PRINT DK$ "CLOSE" : 
HOME : VTAB 5: PRINT 
" 'HMMMMM. . .ONOOHELPOTHE 
RE.OI'LLOJUST" : PRINT 

"callOit : OadventureOx ! ' " 

:F$ = "ADVENTUREOX" 
268 PRINT : PRINT "<PLEASE 

insertOmainOhallOd I SK 

ETTE>0" ; : GET Q$ : PRINT 
: GOTO 2 90 
270 L9 = PEEK (L) :F$ = "" 
: FOR I = 1 TO L9:F$ = 
F$ + CHR$ ( PEEK (L + 

D) 
280 NEXT I: POKE L - 1,32 
2 90 POKE 216,0:Z$ = NA$ + 

" . EXP " 
300 ONERR GOTO 52 
310 PRINT DK$ "UNLOCK" Z$ 
320 PRINT DK$ "OPEN" Z$ 
330 PRINT DK$ "READ" Z$ 
340 FOR I = TO 8: INPUT 

P(I) : NEXT I 
350 FOR I = 1 TO P(0) : 

INPUT E$(I),N%(I): NEXT 

I 
360 PRINT DK$ "CLOSE" : 

POKE 216,0 
370 FOR I = 1 TO P(0): IF 

E$(I) < > F$ THEN NEXT 

I: GOTO 390 
380 N%(I) = N%(I) + 1: 

GOTO 410 
390 IF I > 300 THEN I = 

300 
400 N%(I) = 1:E$(I) = 

F$:P(0) =1 
410 POKE 216,0:NZ = N%(I): 

GOSUB 540: GOSUB 670: 

GOSUB 910 
420 PRINT DK$ "OPEN" Z$ : 

PRINT DK$ "WRITE" Z$ 
430 FOR I = TO 8: PRINT 

P(I) : NEXT I 
440 FOR I = 1 TO P(0) : 

PRINT E$(I) : PRINT 

N% (I) : NEXT I 
450 PRINT DK$ "CLOSE" 
460 HOME : PRINT "ADVENT 

URESOOFO" NA$: PRINT 

47 PRINT "LEVEL :0" ;P(2); 
"0000EXPERIENCE:0" ;P(1) : 
FOR I = 1 TO 39: PRINT 
"_" ; : NEXT I : PRINT 

48 POKE 34,4: VTAB 5 
490 FOR I = 1 TO P(0) : 

PRINT E$(I) ; SPC( 31 - 
LEN (E$(I)) ) ;N%(I) ; 
LEFT$ ( "OTIMES" , 6 - 
(N%(l) = 1) ) : NEXT I 

500 POKE 34,0: PRINT : 
PRINT "ANYOkEYO»0" ; : 
GET Q$: PRINT : PRINT 
DK$ "RUNOOOMAINOHALL" 

510 END 

520 P(0) = 1:E$(1) = 

F$:N% (1) = 1:1 = 1: GOTO 
410 

530 REM ...CHANGE FILTER 

540 PRINT :L = 0:Q = HD - 
HV:J = 5 - 3 * (HV > 13) 
- (HV > 25) : IF ABS (Q) 
> J THEN HD = HV + J * 
SGN (Q)"^: GOSUB 64^ 

550 Q = AG - AV:J =5-3 

* (AV > 13) - (AV > 25) : 
IF ABS (Q) > J THEN AG = 
AV + J * SGN (Q) : GOSUB 
640 

560 Q = CH - CV:J =5-3 

* (CV > 13) - (CV > 25) : 
IF ABS (Q) > J THEN CH = 
CV + J * SGN (Q) : GOSUB 
640 

57 FOR I = 1 TO 4:Q = 
SA%(I) - TA%(I):J = 11 - 
4 * (TA%(I) > 25) - 3 * 
(TA%(I) > 50) - 2. * 
(TA%(I) > 80) : IF ABS 
(Q) > J THEN SA%(I) = 
TA%(I) + J * SGN (Q) : 
GOSUB 640 

58 NEXT I 



590 FOR I = 1 TO 5:Q = 

WA%(I) - XA%(I) :J = 15 - 
5 * (XA% (I) > 25) - 4 * 
(XA%(I) > 50) - 3 * 
(XA%(I) > 80) : IF ABS 
(Q) > J THEN WA%(I) = 
XA%(I) + J * SGN (Q) : 
GOSUB 640 

60 NEXT I 

610 Q = AE - VAE: J = 20 - 
10 * (VAE > 30) - 5 * 
(VAE > 50) - 3 * (VAE > 
75) : IF ABS (Q) > J THEN 
AE = VAE + J * SGN (Q) : 
GOSUB 640 

62 L9 = L: IF L THEN 
PRINT : PRINT 

630 RETURN 

640 L = L + 1: PRINT "*" 
CHR$ (48 + L) "0" ; : 
RETURN 

650 REM ...CALC EXPERIENCE 

660 REM GOLD DIF 

67 DG = GO - OG: IF DG < 
THEN DG = 1 

68 IF DG = THEN 720 
690 Q =0: IF DG > 100000 

THEN Q = INT ( (DG - 

100000) / 100000) : IF Q 

> 9 THEN Q = 9 
700 DG = Q + INT (DG / 

200) : IF DG < 1 THEN DG 

= 1 
710 REM WEAP DIF 
720 DW = 0: FOR I = 1 TO 4 
730 IF WN$(I) < > XN$(I) 

OR WT%(I) < > XT%(I) OR 

WO%(I) < > XO%(I) OR 

WD%(I) < > XD%(I) OR 

WS%(I) < > XS%(I) THEN 

DW = 1: GOTO 7 60 
740 NEXT I: GOTO 800 
750 REM BETTER WEAP 
760 BW = 0: FOR I = 1 TO 4 
770 FOR J = 1 TO 4: IF 

(WO%(I) > XO%(J)) OR 

(WD%(I) + WS%(I) > 

XD%(J) + XS%(J)) THEN 

NEXT J:BW = BW + 1 
78 & NEXT I 
790 REM ATTRIB DIF 
800 DA = (HV < > HD) + (AV 

< > AG) + (CV < > CH) 
810 REM SPELL DIF 
820 DS = 0: FOR I = 1 TO 

4:DS = DS + (SA%(I) < > 

TA%(I) ) : NEXT I 
830 REM WEAPSKILL DIF 
840 DF = 0: FOR I = 1 TO 

5:DF = DF + ABS (WA% (I) 

- XA%(I) ) : NEXT I 
850 REM ARMOR DIF 
8 60 DZ = ABS (AC - OA) + 

ABS (AE - VA) 
870 QE = (DA * 50) + (DZ * 

11) +(DW * 3) +(BW * 25) 

+(DS * 33) + (DF * 7) 
880QE=QE+3* INT (DG 

/ NZ) + (DG > 0) 
8 90 RETURN 

90 REM ...LEVEL ADVANCE 
910 W = P(2) :QE = P(l) + 

QE:J = QE 
920 I = 0:L = 
930 1=1+ 100 :Q = INT (J 

/ I) : IF Q > = 16 THEN L 

= L + 16:J = J - (I * 

16) : GOTO 930 
940 L = L + Q: IF L - W < 

3 THEN 1010 
950 REM (ADJUST OVER-EXP) 
960 PRINT : PRINT "*" ;QE; 

"0*" ;L; "0" ; :i = 0: J = 

0:L = W + 2 
970 1=1 + 100:Q = INT (L 

/ 16) : IF Q > = 1 THEN J 

= J + 16 * I:L = L - 16: 

GOTO 97 
980 J = J + L * I:L = 18 
990 Q = (QE - J) / L: 

PRINT "*" ; : IF Q > I / 

2 THEN L = L + L: GOTO 

990 
1000 QE = J + INT (Q + Q / 

3) :L = W + 2 
1010 P(l) = QE:P(2) = L 



1020 PRINT : PRINT 

1030 IF P(2) > W THEN 1060 

1040 IF L9 > THEN 1150 

1050 GOTO 1180 

10 60 HOME : PRINT NA$ 
"OAD VANCE SOaOLEVEL ! ! " : 
PRINT CHR$ (7) : PRINT : 
PRINT "0<KEY>0" ; : GET 
Q$ : PRINT 

1070 HOME : RESTORE 

1080 PRINT "[A]0HARDINESS" 
; : HTAB 17 : PRINT HD : 
PRINT " [B]0AGILITY" ;: 
HTAB 17: PRINT AG: PRINT 
" [C]OCHARISMA" ;: HTAB 
17 : PRINT CH 

10 90 FOR I = 1 TO 5: READ 
Q$: PRINT "[" ; CHR$ (67 
+ I) ; "]0" ;Q$; : HTAB 
17: PRINT SPC( WA%(I) < 
10 AND WA%(I) > - 
1) ;WA%(I) : NEXT I 

1100 FOR I = 1 TO 4: READ 
Q$: PRINT "[" ; CHR$ (72 
+ I) ; "]0" ;Q$; : HTAB 
17: PRINT SPC( SA%(I) < 
10) ;SA%(I) : NEXT I 

1110 PRINT : VTAB 16: 

PRINT "SELECTOATTRIBUTE 

OorOskillOtoOenhance : 0" 
; : get q$: print q$ : 

GOSUB 2000 
1120 PRINT : IF Q = 99 

THEN 1070 
1130 VTAB X: HTAB 25: 

PRINT I; "0«0dONE0" ; : 

GET Q$: VTAB 16: HTAB 1: 

PRINT : PRINT 
1140 W = W + 1: IF P(2) > 

W THEN 10 60 
1150 PRINT DK$ "OPENOCHAR 

ACTERS,L150" : PRINT DK$ 

"WRITEOCHARACTERS , R" 

;REC 
1160 PRINT NA$: PRINT HD : 

PRINT AG: PRINT CH : FOR 

I = 1 TO 4: PRINT 

SA%(I): NEXT I: FOR I = 

1 TO 5: PRINT WA% (I) : 

NEXT I: PRINT AE : PRINT 

SEX$ 
117 PRINT GOLD: PRINT 

BANK: PRINT AC: FOR I = 

1 TO 4: PRINT WN$ (I) : 

PRINT WT%(I): PRINT 

WO%(I): PRINT WD%(I): 

PRINT WS%(I): NEXT I: 

PRINT DK$ "CLOSE" 
1180 RETURN 
2000 Q = ASC (Q$) - 64: IF 

Q < 1 OR Q > 12 THEN 

2120 
2010 X = Q: ON Q GOTO 

2020,2030,2 040,2050,2050 

,2050,2050,2050,2080, 

2080,2080,2080 
2020 HD = HD + 1:1 = HD: 

RETURN 
2030 AG = AG + 1:1 = AG: 

RETURN 
2040 CH = CH + 1:1 = CH : 

RETURN 
2050 Q = Q - 3: IF WA% (Q) 

> = 100 THEN 2110 
20 60 WA*%(Q) = WA%(Q) + 3 - 

(WA%(Q) > 66) * 2 + INT 

( RND (1) * 3) : IF 

WA%(Q) > 100 THEN WA% (Q) 

= 100 
2070 I = WA%(Q) : RETURN 
2080 Q = Q - 8: IF SA% (Q) 

< 1 OR SA%(Q) > 99 THEN 

2110 
2090 SA%(Q) = SA%(Q) + 4 + 

INT ( RND (1) * 4) : IF 

SA%(Q) > 100 THEN SA% (Q) 

= 100 
2100 I = SA%(Q): RETURN 
2110 PRINT 

"NOTOalLOWED ! 0»0" ; : 

GET Q$: PRINT 
2120 Q = 99: RETURN 
2130 DATA AXE, BOW, CLUB, 

SPEAR, SWORD, BLAST, HEAL, 

SPEED, POWER 



12 



Readers Data Exchange 



COMPUTIST #89 



Checksums 



10-$BADD 
20-$9B13 
100-$54E7 
110-$9D2C 
120-$D711 
130-$6820 
140-$7108 
150-$0329 
160-$0514 
170-$15A9 
180~$5F2D 
190-$C13F 
200-$AC6E 
210-$4CD4 
220-$7959 
230-$191B 
240-$93E6 
250-$2BD0 
252-$702A 
260-$AlBA 
262-$2BDF 
263-$BA40 
265-$B71B 
267-$567A 
268-$3E10 
270-$AF5B 
280-$6454 
290-$5C0C 
300-$DE22 
310-$FD8F 
320-$0FA8 
330-$EAF2 
340-$5DA7 
350-$5FFF 
360-$56EE 
370-$9QlA 
380-$FAAC 
390-$F7D4 
400-$BD6C 
410-$F1FA 
420-$87AD 
430~$8D37 
440-$3B25 
450-$3DC9 



460-$B08D 

470-$BCD7 

480-$A21E 

490-$0DE9 

500-$B016 

510-$B49E 

520-$6BB4 

530-$C359 

540-$6C0F 

550-$8A6A 

560-$953F 

570-$4795 

580-$0D4A 

590-$E98B 

600-$DD2C 

610-$3E28 

620-$DC4B 

630-$EBB7 

640-$B365 

650-$F63F 

660-$94E9 

670-$0B87 

680-$EABF 

690-$7172 

700-$09A3 

710-$C85F 

720-$4F50 

730-$64E0 

740-$F0EA 

750-$CD94 

760-$9262 

770-$047C 

780-$CB3D 

790-$7C60 

800-$8585 

810-$A400 

820-$59CE 

830-$7318 

840-$139F 

850-$8636 

860-$C8EF 

870-$1853 

880-$21FD 

890-$5FCD 



900-$A429 

910-$5120 

920-$93AC 

930-$0C4C 

940-$2AAF 

950-$2E31 

960-$85E5 

970-$71F6 

980-$EE7F 

990-$3845 

1000-$A42B 

1G10-$1EC7 

1020-$4D9B 

1030-$A373 

1040-$ABCA 

1050-$3E10 

1060-$605C 

1070-$5223 

1080-$A2C3 

1090-$D7A5 

1100-$7EA0 

1110-$BCF0 

1120-$52ED 

1130-$2EDC 

1140-$7512 

1150-$B2DB 

Il60-$FBCC 

1170-$0B50 

1180-$83AD 

2000-$ClAB 

2010-$5644 

2020-$DD92 

2030-$0163 

2040-$B538 

2050-$E592 

2060-$2499 

2070-$B277 

2080-$5040 

2090-$6904 

2100-$D4AE 

2110-$FFFE 

2120-$683E 

2130-$6A9E 



Q$ = "0" THEN PRINT : 
POP : GOTO 770 
15 IF Q$ < > "#" AND Q$ < 

> "C" THEN 33 
18 Z$ = "" : IF Q$ = "C" 
AND QC < = MF THEN Z$ = 
"COPYOTOO" 

VTAB 23: CALL 
PRINT Z$F${QC) 
" ;NT; : INPUT 
") :0" ;Q$: IF Q$ = "" 
THEN POP : GOTO 770 
24 I = 1:Q = VAL (Q$) : IF 
Q > AND Q < = NT THEN 
N2 = Q:I = 2 
27 IF Z$ = "" OR I = 1 OR 

QC > MF THEN RETURN 
30 GOSUB 61: RETURN 

(N2 > 1) * (I 



NUEDIT.792 



REM NUEDIT.7 92 IS AN 
EDITOR FOR "NEW FORMAT" 
EAMON GAME MOD & DESIGN 
9/5/92 

1 REM BY JEFF HURLBURT 
(USES MOD OF DON BROWN 

ROUTINE @ LINES 280-310) 

2 PRINT CHR$(4) 
"MAXFILES05" 

3 D$ = CHR$ (4) :RE$ = CHR$ 
( 4 ) + " RE ADOEAMON . DE SC , R" 
:WE$ = CHR$ (4) + "WRITE 
OEAMON.DESC.R" :OE$=CHR$ 

(4) + "OPENOEAMON." :CC$ 
= CHR$ (4) + "CLOSE" :NX 
= 200: NF = 7:MF = 4:TZ = 
15:PZ = 6:FM = 10 

4 DIM N%(NF) ,DR%(11) ,D$ 
(11),M$(10) ,M%(10),TY$ 
(TZ) ,TF(TZ) ,L0$(6) ,AF$ 
(FM,4) ,WT$(1,6) ,R%(11) , 

F$ (NF) 

5 FOR I = 1 TO NF : READ 
F$(I): NEXT I: FOR 1=1 
TO 11: READ D$ (I) : NEXT 
I 

6 FOR I = TO TZ : READ 
TY$(I) .TF(I) : NEXT I: 
FOR I = TO 6 : READ L0$ 

(I) : NEXT I: FOR 1=0 
TO FM: FOR J = TO 3 : 
READ AF$(I,J): NEXT J: 
NEXT I : FOR I = TO 1 : 
FOR J =0 TO PZ: READ 
WT$(I, J) : NEXT J: NEXT 
I: FOR I = TO 10: READ 
M$(I) : NEXT I 

7 GOTO 700 

9 V = 1: PRINT "#0" ; : IF 
QC<= MF THEN PRINT "CO"; 

12 PRINT "<-0->0Z=ED0SPC 
=EXIT:0" ; : GET Q$ : I = 
ASC (Q$) : IF I = 13 OR 



COMPUT1ST#89 



21 PRINT Q$: 
- 958 

"#0(1 



NT) * (I = 
8) + (I = 

THEN V = 
< 32 THEN 



33 N2 = N2 - 
= 8) + (N2 < 
21) :I = (I = 
21) 

36 IF Q$ = "Z" 

37 IF ASC (Q$) 
Q$ = "-" 

39 PRINT Q$: RETURN 

49 REM **READ ARTIF INFO** 

50 PRINT RE$;N2 + NX: 
INPUT AD$ 

51 PRINT D$ "READOEAMON 

. ARTIFACTS , R" ; N2 : INPUT 
AN$,VL,TY,WT,RO: FOR I = 
TO 3: INPUT PA(I) : 
NEXT I: PRINT D$ : RETURN 

57 REM WR. CHANGE 

58 GOSUB 64: IF Q$ = "Y" 
THEN 61 

59 VTAB 23: PRINT "REDO?0 
(Y/N) 0" ; : GET Q$ : PRINT 
Q$ : IF Q$ = "Y" THEN Q$ 
= "R" : RETURN 

60 Q$ = "X" :V = 1: RETURN 

61 ON QC GOSUB 110,135, 
160,175: PRINT D$ 

62 V = 1:Q$ = "S" : RETURN 

63 PRINT "RMS=" ;N%{1); 
"0ART=" ;N%(2); "0EFF=" 
;N%(3) ; "OmONS=" ;N%(4) : 
RETURN 

64 VTAB 23: PRINT "OSAVBO 
(Y/N)0" ;: GET Q$ : IF Q$ 

< > "Y" THEN Q$ = "N" 

65 PRINT Q$: RETURN 

66 FOR I = 1 TO 6: HTAB (6 
+1*5- (DR%(I) < 0)) : 
PRINT DR%(I) ; : NEXT I: 
PRINT : RETURN 

70 REM **OPENS** 

71 PRINT 0E$ "ARTIFACTS, L" 
;LA: RETURN 

72 PRINT 0E$ "DESC,L242" : 
RETURN 

73 PRINT 0E$ "MONSTERS, L" 
; LM : RETURN 

7 4 PRINT 0E$ "ROOMS, L" 

; LR : RETURN 
75 PRINT 0E$ "NAME" : 

RETURN 
7 6 REM **READ ROOM INFO** 

77 PRINT RE$;N2: INPUT R2$ 

78 PRINT D$ "READOEAMON 
. ROOMS, R" ;N2: INPUT 
Rl$: FOR I = 1 TO ND: 
INPUT DR%(I): NEXT I: 
INPUT LT: PRINT D$ 

7 9 RETURN 

80 REM **READ DESC PARMS** 

81 GOSUB 72: PRINT RE$;0: 
FOR I = 1 TO 4: INPUT 
N% (I) : NEXT I: INPUT 
LR,LM,LA: PRINT D$: 
RETURN 

87 REM ** WRITE DESC 
PARMS** 

88 GOSUB 72: PRINT WE$;0: 
FOR I = 1 TO 4 : PRINT 
N%(I): NEXT I: PRINT LR: 
PRINT LM: PRINT LA: 
PRINT D$ : RETURN 

89 REM **WR.NAME** 

90 GOSUB 75: PRINT D$ 
"WRITEOEAMON . NAME" : 
PRINT DU$ : PRINT ND$ : 
PRINT DV$: PRINT CC$ : 
RETURN 

91 REM MAKE. NEW 



92 ON QC GOSUB 105,125, 
155,170 

93 FOR K = 1 TO PX: IF 
N%(QC) > = NX THEN 97 

94 N%(QC) = N%(QC) + 1:N2 
= N%(QC): VTAB 23: PRINT 
"CREATINGO" F$(QC) "0#" 
;N2; ".00" 

95 Q$ = STR$ (N2) : ON QC 
GOSUB 107,127,157,173: 
PRINT D$ 

96 NEXT K 

97 PRINT D$: GOSUB 88:V = 
1 : RETURN 

98 REM OPEN ARTIF & RM 
99. GOSUB 71 

100 REM MK.ROOM 

105 GOSUB 74: GOSUB 72: 

RETURN 
107 Rl$ = "ZILCHOROOM" + 

Q$:R2$ = "YOUOaREOIN 

OTHEO" + Rl$ + " ." 
110 PRINT WE$;N2: PRINT 

CHR$(34) ;R2$; CHR$(34): 

PRINT D$ "WRITEOEAMON . 

ROOMS, R" ;N2: PRINT CHR$ 

(34);R1$; CHR$ (34): FOR 

I = 1 TO ND: PRINT 

DR%(I): NEXT I: PRINT LT 
115 RETURN 
120 REM MK. ARTIFACT 
125 GOSUB 72: GOSUB 71: 

RETURN 
127 AN$ = "STICK" + Q$:AD$ 

= "youOseeOanOuglyO" + 
AN$ + "." :VL = 5:TY = 
2 : WT = 3 : FOR I = TO 
3:PA(I) = 3: NEXT I 
135 PRINT WE$;N2 + NX: 
PRINT CHR$ (34);AD$; 
CHR$ (34) : PRINT D$ 
"WRITEOEAMON . ARTIFACTS 
,R" ;N2: PRINT CHR$(34) 
;AN$; CHR$ (34): PRINT 
VL: PRINT TY: PRINT WT : 
PRINT RO 
140 FOR I = TO 3: PRINT 

PA (I) : NEXT I 
145 RETURN 
150 REM MK . EFFECT 
155 GOSUB 72: RETURN 
157 EF$ = "EFFECT0#" + Q$ 

+ "OtextOgoesOhere . " 

160 PRINT WE$;N2 + 2 * NX: 
PRINT CHR$ (34);EF$; 
CHR$ (34): RETURN 

165 REM MK.MONST 

170 GOSUB 72: GOSUB 73: 
RETURN 

173 mn$ = "bug" + q$:md$ = 
"youOseeOaOgroadyO" + 
mn$ + "!" : for i = to 

10:M%(I) = 1: NEXT I 

17 5 PRINT WE$;N2 +3 * NX : 
PRINT CHR$ (34);MD$; 
CHR$ (34) : PRINT D$ 
"WRITEOEAMON . MONSTERS , R" 
;N2: PRINT CHR$ 

(34) ;MN$; CHR$ (34): FOR 
I = TO 10: PRINT 
M%(I): NEXT I: RETURN 
180 REM ** INIT. FILES 
185 PRINT CC$: POKE 216,0: 
HOME : IF DU$ = "" OR 
DU$ = "X" THEN 190 

18 6 PRINT "MISSINGOEAMON 
.NAME Op ARMS" 

187 PRINT : PRINT DU$ 
18 9 PRINT "USE06.x0EDITOR0 
FOROTHISOADV.O" ;: GET 

q$: print : goto 980 
190 vtab 23: print "make 
OnewOeamon07 . xOfilesOs" 
; : gosub 64: if q$ < > 

"Y" THEN 98 

195 HOME : INPUT "ADV. NAME 
:0" ;Q$: IF Q$ = "" OR 
ASC (Q$) = 27 THEN 980 

200 IF LEN (Q$) > 30 OR 
LEN (Q$) < 3 THEN PRINT 
: PRINT "LENGTHOERROR 
0»0" ; : GET Q$ : PRINT : 
GOTO 195 

202 du$ = q$: input "move 
mentOdirectionsO ( 60or0 

10) :0" ;ND$: IF ND$ = "" 



OR ASC (ND$) = 27 THEN 
980 

203 ND ^ VAL (ND$) : IF ND 
< > 6 AND ND < > 10 THEN 
980 

20 4 ND$ = STR$ (ND) :DV$ = 
"7.0" 

205 GOSUB 90 

20 8 LR = 72:LM = 92 : LA = 
72: FOR I = 1 TO MF : 
N%(I) = 0: NEXT I: GOSUB 
71: GOSUB 72: GOSUB 73: 
GOSUB 74:PX = 1: FOR QC 
= 1 TO MF: GOSUB 93: 
NEXT QC 

210 GOTO 747 

219 REM **NAME CHANGE** 

22 HOME : PRINT DU$ "/O" 
ND$ "/O" DV$: VTAB 2:1$ 
= DU$: PRINT : INPUT 
"NEWONAME : 0" ; Q$ : IF Q$ 
= "" THEN 770 

225 I = LEN (Q$) : IF I > 
30 OR I < 3 THEN PRINT 
"LENOERRORO>0" ; : GET 
Q$: PRINT : GOTO 220 

240 DU$ ^ Q$: GOSUB 90 

242 ONERR GOTO 255 

244 PRINT D$ "UNLOCK" 1$: 
PRINT D$ "RENAME" 1$ "," 
DU$ 

255 POKE 216,0: GOTO 770 

25 9 REM *LOC LABEL* 

260 LK = (RO > 500) + 2 * 



(RO 
+ 3 

< - 
+ 5 



Readers Data Exchange 



> 200 AND RO < 500) 

* (RO > - 999 AND RO 
1) + 4 * (RO = - 1) 

* (RO = - 999) + 6 * 
(RO = 0) : HTAB 1: CALL - 
958: PRINT "LOCATIONO(" 
L0$ (LK) " ) : " ; : HTAB 30 : 
PRINT RO; : RETURN 

278 REM ** ROUTINE TO 

INPUT 1$, HAVING BEEN 

PASSED 12$ ** 
280 1$ = "" : IF 12$ = "" 

THEN 12$ = "MSGOGOESO 

HERE" 

282 PRINT 12$;: CALL -958: 
FOR A = 1 TO LEN (12$) : 
PRINT CHR$(8);: NEXT 

283 GET A$: J = ASC (A$) : 
IF J = 13 THEN CALL - 
958: IF 1$ = "" THEN 1$ 
= 12$: PRINT 12$: RETURN 

284 IF J = 13 THEN PRINT : 
. RETURN 

285 IF J > 31 AND LEN (1$) 

> = TL THEN PRINT CHR$ 
(7) ; : GOTO 283 

286 IF J = 9 AND LEN (1$) 

> = TL THEN PRINT CHR$ 
(7) ; : GOTO 283 

288 IF J > 31 THEN PRINT 
A$; :I$ = 1$ + A$:I2$ = 
MID$ (12$, 2): GOTO 283 
2 90 IF J = 5 THEN PRINT 
12$; :I$ = 1$ + I2$:I2$ = 
Iff! . GOTO 2 83 
292 IF J = 2 AND LEN (1$) 
THEN FOR A = 1 TO LEN 
(1$) : PRINT CHR$ (8) ; : 

A:I2$ = 1$ + I2$:I$ 
: GOTO 283 
J = 4 THEN 12$ = 
(12$, 2) : GOTO 2 82 
29 6 IF J = 9 THEN 12$ = 
"0" + 12$: IF LEN (1$) + 
LEN (12$) > = TL THEN 
12$ = LEFT$ (12$, LEN 
(12$) - 1) 

297 IF J = 9 THEN 282 

298 IF J = 21 AND LEN 
(12$) THEN A$ = LEFT$ 
(12$, 1) : J = ASC (A$) : 
GOTO 285 

300 IF J = 21 THEN A$ = 
"0" : J = ASC (A$) : GOTO 
285 

302 IF J = 8 AND LEN (1$) 

> 1 THEN 12$ = RIGHT $ 
(I$,l) + I2$:I$ = LEFT$ 
(1$, LEN (1$) - 1) : 

PRINT A$;: GOTO 2 83 
304 IF J = 8 AND LEN (1$) 

> THEN 12$ = 1$ + 

13 



NEXT 
_ II II 

294 IF 
MID$ 



I2$:I$ = "" : PRINT A$ ; : 

GOTO 2 83 
308 IF J = 27 THEN PRINT 

I2$:I$ = 1$ + 12$: 

RETURN 
310 GOTO 283 
330 VTAB W: HTAB HH : 

GOSUB 28 0: IF 1$ = "/" 

THEN POP : GOTO 77 
350 RETURN 
699 REM *** M A I N L I N 

E *** 

70 DU$ = "X" : TEXT : 
HOME : PRINT "NUEDIT" : 
PRINT : PRINT "INSERTO 

disketteOtoObeOedited . 

<KEY>0" ;: GET Q$ : PRINT 
: IF ASC (Q$) = 27 THEN 
HOME : GOTO 98 

710 ONERR GOTO 185 

72 Q$ = "6" : GOSUB 75: 
PRINT D$ "READOEAMON 
.NAME" : INPUT DU$ : 
INPUT ND$: INPUT DV$ : 
PRINT CC$: POKE 216,0:ND 
= VAL (ND$) :I = VAL ( 
LEFT$ (DV$,1)) : IF I < 7 
THEN HOME : GOTO 187 

730 GOSUB 81 

747 ZL = 238 :ML = LM - 
62:AL = LA - 42:RL = LR 
- 34 

74 8 M$ = "NOsOeOwOuOdOO" : 
IF ND =6 THEN 77 

74 9 M$ = "NSEWUDOTVXYO" 
:F$(NF - 1) = F$(NF):NF 
= NF - 1 

750 GOTO 770 

7 60 PRINT : PRINT "MAXO 

NUMBEROOFO" F$(QC) "SOIS 
0" ;NX; " .0" ; : GET Q$ : 
PRINT 

770 PRINT CC$:X = FRE (0): 
HOME : GOSUB 8 000: PRINT 
Q$ "OOVREF:0" ; PEEK 
(175) + 256 * PEEK (176) 

780 PRINT : PRINT DU$ : 
PRINT : PRINT "DIRECT 
IONS:0" ND$: PRINT "VERS 
IONOISOO" DV$: PRINT 

790 V = 1:N2 = 1 : PX = : 
GOSUB 63 : PRINT 

80 FOR I = 1 TO NF: PRINT 
"[" LEFT$ (F$(I) ,1) 
"]00" F$(I) : NEXT I 

810 PRINT : PRINT "[0]00 
SELECT" ;: HTAB 2: GET 
Q$: PRINT Q$ 

820 FOR I = 1 TO NF: IF Q$ 
< > LEFT$ (F$(I),1) THEN 
NEXT I: GOTO 770 

830 QC = I 

840 HOME : GOSUB 63: VTAB 
7: PRINT F$(QC): IF QC = 
NF THEN 980 

845 IF Q$ = "N" THEN 965 

850 Q$ = "ROOM" : IF QC < 
= MF THEN Q$ = F$ (QC) : 
PRINT : PRINT "ENTERO+ 
OTOOADDONEWO" Q$ "(S)OOR" 

8 60 PRINT : PRINT "OENTER 

0" Q$; : INPUT "ONUMBERO 

0»0" ;Q$: IF Q$ = "" 

THEN 770 
870 IF QC > MF THEN N%(QC) 

= N%(1) : GOTO 960 
875 IF Q$ < > "+" THEN 960 
880 IF (N%(QC) > = NX) 

THEN 7 60 
890 PRINT : PRINT "CREATE 

OHOWOmANYO" F$(QC);: 

INPUT "S?00»0" ;Q$: IF 

Q$ = "" THEN 770 
900 PX = VAL (Q$) : IF PX < 

2 THEN PX = 1 
910 GOSUB 92: GOTO 770 
960 Q = INT ( ABS ( VAL 

(Q$))) : IF Q < 1 OR Q > 

N% (QC) THEN 77 
965 ON QC GOSUB 99,125, 

155,170,115,99 
970 N2 = Q: ON QC GOTO 

1010,2010,3010,4010, 

220,1510 
98 PRINT CC$: PRINT CHR$ 

(4) "MAXFILES03" : PRINT 



: END 

1000 REM *** ROOMS *** 

1010 GOSUB 77 

102 HOME : PRINT "ROOMO" 
;N2;: HTAB 15: PRINT 
"LIGHTING:0" ;LT;: IF V 
THEN PRINT : GOTO 1025 

1022 HTAB 25: INPUT "" 
;Q$: IF Q$ = "" THEN 
VTAB 1: HTAB 25: PRINT 
LT: GOTO 1025 

1023 LT = VAL (Q$) 
1025 VTAB 3: IF V THEN 

PRINT "0" Rl$: GOTO 1070 

1030 W = 3:HH = 2:TL = 
RL:I2$ = Rl$: GOSUB 330 

1040 IF 1$ = "" THEN 1070 

1060 Rl$ = 1$ 

1070 VTAB 5: IF V THEN 
PRINT R2$: GOTO 1110 

1080 W = 5:HH = 1:TL = 
ZL:I2$ = R2$: GOSUB 330 

1090 IF 1$ = "" THEN 1110 

1100 R2$ = 1$ 

1110 W = 14: VTAB VV - 2 : 
PRINT "EXITSO(0=NONEO 
NEG=STRANGEO+500=DOOR) -- 
" : FOR I = 1 TO ND 

1120 VTAB VV + INT ((I - 
1) / 2) : HTAB (1 + 19 * 
(I / 2 = INT (I / 2))) : 
PRINT D$(I); "Or-->ORMO" 
;DR%(I) ; : IF V THEN 
PRINT : GOTO 1150 -i r 

1130 HTAB (15 + 19 * (I / 
2 = INT (I / 2) ) ) : INPUT 
"" ;Q$: IF Q$ = "" THEN 
VTAB W + INT ((I - 1) / 
2) : HTAB (15 + 19 * (I / 
2 = INT (I / 2))): PRINT 
DR%(I) : GOTO 1150 

1140 DR%(I) = VAL (Q$) 

1150 NEXT I 

1160 Q$ = "" : IF NOT V 
THEN QC = 1: GOSUB 58: 
IF Q$ = "R" THEN 1020 

1170 IF Q$ = "X" THEN 1010 

12 00 VTAB 23: PRINT M$;:NT 
= N%(1) : GOSUB 9 

1210 Q = (QC = 1) * 2 * 
(QC < > 1) : IF I THEN ON 
Q GOTO 1010,1510 

1220 IF NOT V THEN ON Q 
GOTO 1020,1010 

1230 FOR 1=1 TO ND: IF 
Q$ < > LEFT$ (D$(I) ,1) 
THEN NEXT I: GOTO 1200 

1240 IF ABS (DR%(I)) < 501 
OR ABS (DR% (I) ) > 700 
THEN 1245 

12 42 ZZ = N2:N2 = ABS 

(DR%(I) ) - 500: IF N2 > 
N%(2) THEN 1244 

12 43 GOSUB 51: IF PA(0) < 
> AND ABS (PA(0)) < = 
N% (1) THEN N2 = ABS 
(PA(0) ) :'GOTO 1247 

1244 N2 = ZZ: GOTO 1200 

1245 IF DR%(I) < > AND 
ABS (DR% (I) ) < = N%(1) 
THEN N2 = ABS (DR%(I)): 
GOTO 1247 

1246 GOTO 1200 

1247 ON Q GOTO 1010,1510 
1250 GOTO 1200 

1500 REM *** DISP RM 

CONNECTS *** 
1510 ZZ = N2: GOSUB 78: 

FOR I = 1 TO 6:R%(I) = 

DR% ( I ) : NEXT I 
1520 HOME : PRINT "ROOMO" 

;N2;: HTAB 11: FOR 1=1 

TO 6: PRINT LEFT$ 

(D$(I),1); SPC( 4); : 

NEXT I: PRINT 
1530 FOR I = 1 TO 39: 

PRINT "_" ; : NEXT I : 

PRINT 
1540 FOR J = 1 TO 6:N2 = 

R%(J) :K = J * 2 + 3: 

VTAB K: PRINT LEFT$ 

(D$(J),1) "0#" ; SPC( 2 

- ( ABS (N2) > 9) - (N2 

< 0));N2; 
1550 IF N2 = THEN HTAB 

11 : PRINT "... OnONEO ..." 



: GOTO 1590 
1555 IF N2 > 500 AND N2 < 

600 THEN HTAB 11: PRINT 
"... OaODOORO ..." : GOTO 

1590 
1560 IF N2 > N%(1) THEN 

HTAB 11: PRINT " . . . OUND 

EFINEDO..." : GOTO 1590 
1570 IF N2 < THEN HTAB 

11 : PRINT " . . .OSPECIAL 

0. . ." : GOTO 1590 
1580 PRINT : GOSUB 74: 

GOSUB 78: VTAB K: GOSUB 

66: GOTO 1590 
15 90 NEXT J 
1600 N2 = ZZ: FOR I = 1 TO 

6:DR%(I) = R%(I): NEXT 

I: GOTO 120 
2000 REM *** ARTIFACTS *** 
(RD & WR 8 PARMS FOR ALL 

FMTS) 
2010 GOSUB 50 
20 40 HOME : PRINT "ART0#" 

;N2; "0000" ; : HTAB 9: 

IF V THEN PRINT AN$ : 

GOTO 20 90 
2050 W = 1:HH = 9:TL = 

AL:I2$ = AN$: GOSUB 330 
2060 IF 1$ = "" THEN 2090 
2080 AN$ = 1$ 
2090 VTAB 3: IF V THEN 

PRINT AD$: GOTO 2140 
2100 W = 3:HH = 1:TL = 

ZL:I2$ = AD$: GOSUB 330 
2120 IF 1$ = "" THEN 2140 
2130 AD$ =1$ 
2140 W = 7: VTAB W + 3: 

PRINT "VALUEOINOGOLDO 

PIECES : 0" ;: HTAB 30: 

PRINT VL; : IF V THEN 

PRINT : GOTO 2170 
2150 HTAB 30: INPUT "" 

;Q$: IF Q$ = "" THEN 

VTAB W + 3: HTAB 30: 

PRINT VL: GOTO 217 
2160 VL = VAL (Q$) 
2170 VTAB VV + 4: HTAB 1: 

PRINT "TYPE:0" TY$ (TY) 

"0000" ;: HTAB 30: PRINT 

TY; : IF V THEN PRINT : 

GOTO 2220 
2180 PRINT "0<-0->0" ; : 

GET Q$:I = ASC (Q$) : IF 

1 = 13 THEN PRINT : GOTO 
2220 

2190 IF I = 8 THEN TY = TY 
- (TY > 0) + TZ * (TY = 
0) 

2200 IF I = 21 THEN TY = 
TY + (TY < TZ) - TZ * 
(TY = TZ) 

2210 PRINT : GOTO 2170 

2220 VTAB VV + 5 : PRINT 
"WEIGHTOinOGRONDS :0" ; : 
HTAB 30: PRINT WT;: IF V 
THEN PRINT : GOTO 2250 

2230 HTAB 30: INPUT "" 
;Q$: IF Q$ = "" THEN 
VTAB W + 5: HTAB 30: 
PRINT WT: GOTO 2250 

22 40 WT = VAL (Q$) 

2250 IF V THEN 2255 

2253 VTAB W + 7: PRINT 

" inOroomOx : OxOOOOOembed 

OinOrmOX:Ox+200" : PRINT 
"CARRIED : 00-1000000NOMON 
STER0X:0-X-1" : PRINT 
" WORN : 00000- 9 9 9000IN0ARTI 
FACT0X:0x+500" 

2255 VTAB W + 12 - V * 6 : 
GOSUB 260: IF V THEN 
PRINT : GOTO 22 90 

22 60 HTAB 30: INPUT "" 
;Q$: IF Q$ = "" THEN 
2275 

2270 RO = VAL (Q$) 

2275 VTAB W + 6: GOSUB 

2 60: PRINT 

2290 ZZ = TF(TY) : FOR I = 
TO 3 

22 92 VTAB VV + 7 + I : HTAB 
1: PRINT AF$(ZZ,I) ":0" 
; : IF (I < > 1) OR (ZZ < 
> 1 AND ZZ < > 9) THEN 
2298 



2294 PRINT WT$ ( (ZZ = 

l).PA(I)); 
2298 HTAB 30: PRINT 

PA(I) ; : IF V THEN PRINT 

: GOTO 2320 

2300 IF (I < > 1) OR (ZZ < 
> 1 AND ZZ < > 9) THEN 
2308 

2301 PRINT "0<-0->0" ; : 
GET QS: J = ASC (Q$) : IF 
J = 13 THEN PRINT : GOTO 
2320 

2302 IF J = 8 THEN PA(I) = 
PA(I) - (PA(I) > 0) + PZ 
* (PA(I) = 0) 

2303 IF J = 21 THEN PA(I) 
= PA(I) + (PA(I) < PZ) - 
PZ * (PA(I) = PZ) 

2305 PRINT : GOTO 22 92 
2308 HTAB 30: INPUT "" 

;Q$: IF Q$ = "" THEN 

VTAB W + 7 + I: HTAB 

30 : PRINT PA (I) : GOTO 

2320 
2310 PA(I) = VAL (Q$) 
2320 NEXT I 
2430 Q$ = "" : IF NOT V 

THEN GOSUB 58: IF Q$ = 

"R" THEN 2040 
2440 IF Q$ = "X" THEN 2010 
2470 VTAB 23:NT = N% (2) : 

GOSUB 9 
2480 IF I THEN 2010 
2490 IF NOT V THEN 2040 
2500 GOTO 2470 
3000 REM *** EFFECTS *** 
3010 PRINT RE$;N2 + 2 * 

NX: INPUT EF$: PRINT D$ 
3020 HOME : PRINT "EFFECT 

0#";N2:VTAB 3 : IF V THEN 

PRINT EF$: GOTO 3090 
3030 VTAB 3: HTAB 1:W = 

3:HH = 1:TL = ZL:I2$ = 

EF$: GOSUB 330 
3040 IF 1$ = "" THEN 3060 
30'50 EF$ = 1$ 
3060 GOSUB 58: IF Q$ = "R" 

THEN 3020 
3070 IF Q$ = "X" THEN 3010 
3090 VTAB 23: NT - N%(3): 

GOSUB 9 
3100 IF NOT V THEN 3020 
3110 IF I THEN 3010 
3120 GOTO 3090 
4000 REM *** MONSTERS *** 
4010 PRINT RE$;N2 + 3 * 

NX: INPUT MD$: PRINT D$ 

" RE ADOEAMON .MONSTERS , R" 

;N2: INPUT MN$ : FOR I = 

TO 10: INPUT M% (I) : 

NEXT I: PRINT D$ 
4040 HOME : PRINT "MONO#" 

;N2; "0000" ; : HTAB 9: 

IF V THEN PRINT MN$ : 

GOTO 40 90 
4050 W = 1:HH = 9:TL = 

ML: 12$ = MN$: GOSUB 330 
40 60 IF 1$ = "" THEN 40 90 
4080^ MN$ = 1$ 
4090 VTAB 3: IF V THEN 

PRINT MD$: GOTO 4140 
4100 W = 3:HH = 1:TL = 

ZL:I2$ = MD$: GOSUB 330 
4120 IF 1$ = "" THEN 4140 
4130 MD$ = 1$ 
4140 VTAB 10: FOR I = TO 

10 
4150 PRINT M$(I) ":0" ;: 

HTAB 20 : PRINT M% (I) ; : 

IF V THEN PRINT : GOTO 

4180 
4160 HTAB 20: INPUT "" 

;Q$: IF Q$ = "" THEN 
VTAB 10 + I: HTAB 20: 

PRINT M%(I): GOTO 4180 
4170 M%(I) = VAL (Q$) 
4180 NEXT I 
4190 Q$ = "" : IF NOT V 

THEN GOSUB 58: IF Q$ = 

"R" THEN 40 40 
4200 IF Q$ = "X" THEN 4010 
4230 VTAB 23:NT = N%(4): 

GOSUB 9 
4240 IF I THEN 4010 
4250 IF NOT V THEN 4040 
4260 GOTO 4230 
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8000 Q$ = "" :J = PEEK 
(103) + 256 * PEEK (104) 
+ 4: FOR I = 1 TO 11:Q$ 
= Q$ + CHR$ (128 + PEEK 
(J + I)) : NEXT I: RETURN 

8999 REM *F$(I) 

90 00 DATA ROOM, ARTIFACT, 
EFFECT, MONSTER, NAMEO 
CHANGE, CONNECTIONS, X- IT 

9010 REM *D$(I) 

9020 data north, south, east 
0,westO,upOOO,downO,t- 

NEO, V-NWO, X-SEO, Y- 

SW0,NONE 
9030 REM *TY$(TZ) TF(TZ) 

<TYPE NAMES & FMT # ' S> 
9040 DATA GOLD /MONEY, , STD 

. OTREASURE , , STD . OWEAPON 

, 1 , ODDOWEAPON, 1 , CONTAIN 

er, 2 , lightable , 3 , drink 
able , 4 , readable , 5 , door/ 
gate , 6 , key/opener, 7 , boun 
dOmnst, 8, wearable, 9, door 

-12,10,CUSTOM-13,0,CUST 
OM-14 , , CUSTOM-15 , 

9043 REM *LO$(I)* 

9045 DATA INOROOM, INSIDEO 

container, embeddedOinO 

ROOM, ONOMONSTER, CARRIED 

,WORN,??? 
9050 REM *AF$(FM,J) <ARTIF 

PARMS #5-#8> 
9060 DATA #5, #6, #7 , #8, WEA 

PONOCOMPLEXITY, WEAPON 

Otype, hitOdice, HITOSIDES 

9070 DATA KEY0#, STRENGTH, 

OPEN? , #8 , DURATION, #6 

.#7, #8 
90 80 DATA HEALOAMT, DOSES, 

OPEN? , #8 , ISTOEFFECT , NUM . 

OOFOeFFECTS , OPEN? , #8 
90 90 DATA ROOMOBEYOND, KEY 

0#, STRENGTH, HIDDEN?, #5 

.#6, #7, #8 
9100 DATA MONSTERO#,KEYO# 

, GUARD0# , #8 , armorOclass , 

TYPE, #7, #8, ROOMObEYOND, 

KEY0# , OPEN? , HIDDEN? 
9110 REM *WT$(PZ) <ARTIF. 

PARM #6 WEAP /ARMOR 

TYPES> 
9120 DATA ARMORO,CAPEOO, 

BOOTSO, GLOVES, HELMOO, 

CTYP#5,CTYP#6,NONEOO,AXE 

000, BOwOOO, clubOO, spearO 

,SWORDO, CUSTOM 

9130 REM *M$(I) <M0NSTER 
PARMS > 

9140 DATA HD,AG,GROUPOSIZE 
, COURAGE , ROOM, WEIGHT/ 
PRM5, ARMOUR, WE APON#, HIT 
0DICE,HIT0SIDES, FRIEND 
LINESS 

Checksums 



Jack R. Nissel 



PA 



Softkey for... 

U.S. Atlas Action 

Boppie's Great Word Chase 

Verb Viper 

Word Man 

DLM 



0-$92CC 


24-$CC06 


60-$5BCC 


1-$DB99 


27-$0652 


61-$BC83 


2-$EB48 


30-$1845 


62-$25B9 


3-$7A80 


33-$C60A 


63-$2B49 


4-$C71B 


36-$5C8A 


64-$B145 


5-$BE89 


37-$38E7 


65-$D6CD 


6-$0217 


39-$D453 


66-$4DC7 


7-$71FC 


49-$C881 


70-$1981 


9-$6DEC 


50-$8682 


71-$2CB6 


12-$726A 


51-$8941 


72-$D75A 


15-$D129 


57-$5A98 


73-$FA8B 


18-$CE28 


58-$D3Dl 


74-$BBB4 


21-$DE1A 


59-$lDC0 


75-$340D 


Vendors 





Eamon Adventurer's Guild 

7625 Hawkhaven Drive 
Clemmons, NC 27012 

atten: Tom Zuchowski (910- 
766-7490) 

Product Monitor 

7814 Santa Elena 
Houston TX 77061 

atten: Jeff Hurlburt (713-645- 
8680) 



Softkey for... 

Space Math 
Learning Well 

Softkey for... 
Reading for Meaning with 

Mother Goose 
Metric Skills I 
Metric Skills II 
Compound Words and 

* Contractions 

Nouns/Pronouns 1 

Antonyms/Synonyms 

Patterns and Sequence 

Size and Logic 

Observation and Classification 

Conservation and Counting 

Parquerty and Pictures 

Roots/Affixes 

Verbs 

Chariots, Cougars, & Kings 

Money! Money! 

Hartley Courseware 

Softkey for... 

Peanut's Maze Marathon 

Fixit 

Galaxy Math Basic Facts 

Random House 

Softkey for... 

Dragon's Keep 
Sierra On-Line 

Softkey for... 

Piece of Cake Math 
Fraction Factory 

Springboard Software 

Softkey for... 

Sweet Shoppe 

Grabit Factory 

Eric Software 

Softkey for... 

Rhymes & Riddles 
Spinnaker Software 

Softkey for... 

Learn About Sounds 
American Educational Computer 

Softkey for... 

Computer Literacy Adventures 
of the Lollipop Dragon 

Cursor Control Adventures 

Plotting and Programming Adventures 

Letter and Key Number Adventures 

Function Key Adventures 

The Society for Visual Education 

Requirements: 

The original disk(s) 
Blank disk(s) for each title 
COPYA from your DOS 3,3 sys- 
tem master 
A sector editor 

(This last title was on the most 
wanted list, as of issue #62, as 



separate titles. They are Lolli- 
pop Dragon: Cursor Control 
Adventures, Lollipop Dragon: 
Plotting and Programming Ad- 
ventures, Lollipop Dragon: Let- 
ter and Key Number Adventures, 
and Lollipop Dragon: Function 
Key Adventures.) 

Notes: On Peanuts Maze Mar- 
athon make the sector edit to 
both sides. On Rhymes & Rid- 
dles you do not need to do any 
sector edits. I found that when 
you write to the Hartley 
Courseware and American Ed- 
ucational titles it locks up cer- 
tain sectors on your unprotect- 
ed copy. To avoid this I put Di- 
versi-DOS on my copies. 

Step-by-step 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

POKE 47426,24 ignore checksum & 

epilogu errors 
RUN COPYA 

2. Copy your original disk to 
your blank disk. 

3. Make the following sector edit 
to your copy. 

Irk Sel Byle Fm la 

$00 $03 $42 38 18 

4. Write the sector back to the 
disk. 

Softkey for... 

States and Traits 
Crypto Cube 

DesighWare 

Requirements: 

The original disk(s) 
A blank disk for each title 
Any fast copy program 
A sector editor 

Jim S. Hart's Softkey, in is- 
sue #52, for European Nations 
and Locations works for these 
titles as well. 

1. Fast copy your original disk. 

2. Search for the byte string A9 
38 8D 9E B9 and change to EA 
EA EA EA EA. 

3. Write the sector back to the 
disk. 

Softkey for... 

Maps & Globes: Understanding 

Maps & Globes 

Troll Associates 

Requirements: 

The original Maps & Globes: 
Understanding Maps & 
Globes disks 

2 blank disks 

DOS 3.3 system master 

Paul D. Billion's softkey, in 
issue 60, for Maps & Globes 
Latitude & Longitude works for 
this title. 

1. Boot your DOS 3.3 system 

master and at the Applesoft 

prompt enter: 
C ALL-1 51 gets you into the monitor 

B954:29 00 ignore first byte of address 

header 
B988:1 8 60 ignore both bytes of address 

epilogue 
3D0G gets you back to Applesoft BASIC 

prompt 
RUN COPYA 



2. Copy both disks to your 
blanks 

That's it. 

Softkey for... 

Math Tutor Fractions Part I 

Math Tutor Multiplication 

Math Tutor Division 

Scholastic 

Requirements: 

The original disks 
3 blank disks for each title 
COPYA from your DOS 3.3 sys- 
tem master 
Copy II Plus 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

POKE 47426,24 ignore checksum and 

epilogues 
RUN COPYA 

2. Copy your original program 
disks to your blank disks. You 
can use any fast copy program 
to copy the management disk. 

3. Boot Copy II Plus and use the 
CHANGE BOOT PROGRAM 
function to change the boot 
program to HELLO on your 
copy of the program disks. 

Softkey for... 
Math Tutor Fractions Part n 
Scholastic 

Requirements: 

The original disks 

3 blank disks 

COPYA from your DOS 3.3 sys- 
tem master 

This title was slightly differ- 
ent then Math Tutor Fractions 
Part I. On eveii tracks the ad- 
dress prologues were D4 AA 96 
and the address epilogues were 
AB AF. On odd tracks every- 
thing was normal. To deprotect 
this disk we will patch COPYA 
to allow both D4 and D5 in the 
address prologues and to ignore 
the address epilogues. 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

CALL-1 51 gets you into the monitor 

B954:4A 09 6A DO EF allows D4 and 

D5 in address prologues 
B988 :1 8 60 ignores address epilogues 
3D0G gets you back to the Applesoft 

prompt 
RUN COPYA 

2. Copy your original program 
disks to your blank disks. You 
can use any fast copy program 
to copy your management 
disk. 

That's it. 

Softkey for... 

Microzine Jr. 
Scholastic* 

Requirements: 

The original disks 

4 blank disks 

COPYA from your DOS 3.3 sys- 
tem master 
Copy II Plus 

Disk 1 was like Math Tutor 
Fractions Part II. On even 
tracks the address prologues 
were D4 AA 96 and the address 
epilogues were AB AF. On odd 
tracks everything was normal. 
We will make the same patches 
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to COPYA to allow both D4 and 
D5 in the address prologues and 
to ignore the address epilogues. 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

C ALL-1 51 gets you into the monitor 

B954:4A C9 6A DO EF allows D4 and 

D5 in address prologues 
B988 :1 8 60 ignores address epilogues 
3D0G gets you back to the Applesoft 

prompt 
RUN COPYA 

2. Copy both sides of your orig- 
inal disk 1 to your blank disks. 

3. Disk 2 is not protected so use 
Copy II Plus DISK COPY to 
copy both sides of disk 2 to 
your remaining blank disks. 

Softkey for... 
Freddy's Puzzling Adventures 
DLM Software 

Requirements: 

The original disk 
A blank disk 

COPYA from your DOS 3.3 sys- 
tem master 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

CALL-151 gets you into the monitor 

B954:4 A C9 6A DO EF allows D4 and 

D5 in address prologues 
B942 :1 8 ignores checksum and epilogue 

errors 
3D0G gets you back to the Applesoft 

prompt 
RUN COPYA 

2. Copy your original disks to 
your blank disks. 

That's it. 

Softkey for... 

The Factory 
Sunburst Communications 

Requirements: 

The original disk 
A blank initializied disk 
Demuffin Plus 
DOS 3.3 system master 
A way to reset into the monitor 
A blank initializied slave disk 
with no HELLO program 

The softkey in COMPUTIST 
#57 would not work for me. The 
controller would die at track 
$11, sector $08. It's possible 
that this sector was bad and 
since there was no information 
on it the program was not af- 
fected. In order to get a COPYA 
version I did the following. 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt put in your blank disk 
and enter; 

NEW 

INITLOGO 
DELETE LOGO 

2. Boot your original disk and 
at the Applesoft prompt get 
into the monitor and enter; 

6800<B800.BFFFM 

3. Boot your slave disk. 
C600G 

4. At the Applesoft prompt put 
in your disk containing De- 
muffin Plus and enter; 

CALL-151 

BLOAD DEMUFFIN PLUS,A$803 

B800<6800.6FFFM 

A851G 



803G 

5. Copy the files using the wild- 
card (=) option from your orig- 
inal to your blank disk. 

Softkey for... 

Max Dublin's Treasure 
Grolier 

Requirements: 

The original disk 

A blank initialized disk 

A blank initialized slave disk 

with no HELLO program 
SuperIOBvl.5 
A way to reset into the monitor 

This title can be deprotected 
by using Super lOB with the 
Swap Controller that uses the 
RWTS of the protected disk to 
read the original disk then uses 
a normal RWTS to write the 
information back to your blank 
disk. 

1. INITialize your blank disk 
INIT HELLO 

DELETE HELLO 

2. Boot your original disk and 
at the Applesoft prompt reset 
into the monitor. 

3. Move the RWTS to a safe 
place by entering: 

1900<B800.BFFFM 

4. Put in your slave disk and 
boot it by entering: 

C600G 

5. After the disk boots and the 
Applesoft prompt appears in- 
sert your Super lOB disk and 
save the RWTS to it by enter- 
ing: 

BSAVE RWTS.MAX DUBLIN, 
A$1900, L$800 

6. Install the controller into 
Super lOB, run it and copy 
your original disk to your 
blank disk. Answer NO when 
asked if you want to INITial- 
ize the blank disk. 

CONTROLLER 

1000 REM MAX DUBLIN. CON 
1010 TK = 3:ST = 0:LT = 

35: CD = WR 
1020 Tl = TK: GOSUB 490: 

GOSUB 360: ONERR GOTO 

550 
1030 GOSUB 430: GOSUB 

100:ST = ST + 1: IF ST < 

DOS THEN 1030 
1040 IF BF THEN 1060 
1050 ST = :TK = TK + 1 : 

IF TK < LT THEN 1030 
1060 GOSUB 490 :TK = Tl : ST 

= 0: GOSUB 360 
1070 GOSUB 430: GOSUB 

100:ST = ST + 1: IF ST < 

DOS THEN 1070 
10 80 ST = :TK = TK + 1: 

IF BF = AND TK < LT 

THEN 1070 
1090 IF TK < LT THEN 1020 
1100 HOME : PRINT 

^'COMPLETED, ODONE, 

THROUGH, OFINISHED" : END 
10010 IF PEEK (6400) < > 

162 THEN PRINT CHR$ (4) 

'"BLOADORWTS .MAXO 

DUBLIN, A$1900" 

Checksums 

1000-$356B 1040-$6342 1080-$6CA2 

1010-$3565 1050-$ABA3 1090-$9DCA 

1020-$6170 . 1060-$20C0 1100-$8BBF 

1030-$7771 1070-$28C5 10010-$4616 



Softkey for.. 



Bike Hike 



Learning Technologies 

Requirements: 

The original disk 
A blank disk 

COPYA from your DOS 3.3 sys- 
tem master 
A sector editor 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

POKE 47426,24 

RUN COPYA 

2; Copy your original to your 
blank disk 

3. Make the following sector 
edits to your copy. 

Irk Scl Byle Fm la 

OE 03 76-77 DO ED 60 EA 

11 00 01 11 03 . 

Softkey for... 

Math in a Nutshell 
Clowning Around 

Learning Technologies 

Requirements: 

The original disk(s) 
A blank disk for each title 
DOS 3.3 system master 
A sector editor 

1. Boot your DOS 3.3 system 
master and at the ] prompt 
enter: 

POKE 47426,24 ignore checksums and 

epilogues 
RUN COPYA 

2. Copy your original to your 
blank disk. 

3. Make the following sector edit 
to your copy. 

Irk Set B^ Em " lo" 
00 03 42 38 18 

4. Write the sector back to the 
disk. 

Softkey for... 
Let's Learn about the Library 
Troll Courseware 

Requirements: 

The original program 
3 blank sides 

COPYA from your DOS 3.3 sys- 
tem master 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

CALL-151 

8954:29 00 

B942:18 

3D0G 

RUN COPYA 

2. Copy all 3 disks to your blank 
disks. 

You now have a COPYA copy. 



Disable DOS error checking. ....NO 

Continue reading on error NO 

All of the above correct .....YES 

Change address/data bytes YES 

Al (normal: 213/D5) ...170 

A2 (normal: 170/AA) ................213 

A3 (normal: 150/96).......... 173 

El (normal: 222/DE) ..Press return 
E2 (normal: 170/AA)..Press return 
Dl (normal: 213/D5) ..Press return 

D2 (normal: 170/AA) 150 

D3 (normal: 173/AD) .....170 

El (normal: 222/DE) ..Press return 
E2 (normal: 170/AA) ..Press return 

All of the above correct YES 

Format target disk YES 

2. Use Copy II Plus SECTOR 
COPY to copy sector $00 from 
your original disk to your copy. 

3. Make the following sector 
edits to your copy. 

Irk Ssl Bytg F[Ofn la 

$00 $02 $F1 96 AA 

$00 $02 $FC AA AD 

$00 $03 $55 AA D5 

$00 $03 $5F D5 AA 

$00 $03 $6A AD 96 

$00 $06 $7A AA D5 

$00 $06 $7F D5 AA 

$00 $06 $84 AD 96 

$0B $04 $1A-3A AAD596AA D5AA96D5 

D596AAD5 AA96D5AA 

ADD5AA96 96D5AA96 

D5AA96D5 D5AA96D5 

AAADD5AA AAADD5AA 

ADDS AD AA ADD5AAAD 

D596AAD5 D5AAADD5 

ADAAD5AA AAADD5AA 

96 AD 

4. Write each sector back to the 
disk before going to the next 
sector. 

Softkey for... 



Algebra Shop 
Scholastic 

Requirements: 

The original disk 
2 blank disk sides 
COPYA from your DOS 3.3 sys- 
tem master 

Upon examining this disk I 
found that side two was unpro- 
tected and side one was pro- 
tected by altered epilogues and 
by the first byte in the address 
header being changed to D4 on 
every other track, which made 
this program easy to softkey. 

1. BootVour DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

CALL-151 

B942:18 

B954:29 00 

3D0G 

RUN COPYA 

Softkey for... ^- Copy side one of your original 

^ ', ^ ^ to one of your blank disks. 

Grade Manager v2.3 ^ ^^ ^ , , 

3. Use any fast copy program to 

^^^^ copy side two. 

Requirements: Nothing else needs to be done. 

The original disk 

A blank disk Sof&ey for... 

AdvL"ed^^^ Spare Moments 

1. Boot Advanced COPYA and ^^^^ 

use the following setup. Requirements: 

Question Response The original disk 

Use foreign RWTS NO 2 blank initialized disk sides ^ 

Start track 01 -^ blank initialized slave disk 

End track 34 Super lOB vl.5 

Read as half tracks NO A way to reset into the monitor 
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The controller listed below 

To deprotect both sides of this 
MECC title we will use Super 
lOB with the Swap Controller 
and use the RWTS of the pro- 
tected disk to read the original 
disk then use a normal RWTS 
to write the information back to 
your blank disk. 

1. INITialize your blank disks 
INIT HELLO 

DELETE HELLO 

2. Boot side one of your original 
disk and at the Applesoft 
prompt reset into the moni- 
tor. 

3. Move the RWTS to a safe 
place by entering: 

1900<B800.BFFFM 

4. Put in your slave disk and 
enter: 

C600G 

5. After the disk boots and the 
Applesoft prompt appears in- 
sert your Super lOB disk and 
save the RWTS to it by enter- 
ing: 

BSAVE RWTS.SPARE MOMENTS, 
A$1900, L$800 

6. Install the controller into 
Super lOB, run it and copy 
your original disk to your 
blank disk. Answer NO when 
asked if you want to INITial- 
ize the blank disk. 

CONTROLLER 

10 00 REM SPARE MOMENTS 
1010 TK = 3:ST = :LT = 

35: CD = WR 
1020 Tl = TK: GOSUB 490: 

GOSUB 360: ONERR GOTO 

550 
1030 GOSUB 430: GOSUB 

10 0: ST = ST + 1: IF ST < 

DOS THEN 1030 
1040 IF BF THEN 1060 
1050 ST = 0:TK = TK + 1 : 

IF TK < LT THEN 1030 
1060 GOSUB 490 :TK = Tl : ST 

= 0: GOSUB 360 
1070 GOSUB 430: GOSUB 

100:ST = ST + 1: IF ST < 

DOS THEN 107 
1080 ST = 0:TK = TK + 1 : 

IF BF = AND TK < LT 

THEN 1070 
1090 IF TK < LT THEN 1020 
1100 HOME : PRINT 

^^COPYODONE'' : END 
10010 IF PEEK (6400) < > 

162 THEN PRINT CHR$ (4) 

^'BLOADORWTS . SPAREO 

MOMENTS, $1900'' 

Checksums 

1000-$356B 1040-$6342 1080-$6CA2 

1010-$3565 1050-$ABA3 1090-$9DCA 

1020-$6170 1060-$20C0 1100-$9A4D 

1030-$7771 1070-$28C5 10010-$F9EC 

7. Repeat steps 1-6 for side 2. 

Softkey for... 

Mr. Pixel's Cartoon Kit 
Mindscape 

Requirements: 

The original disk 
A blank disk 

COPYA from your DOS 3.3 sys- 
tem master 
Copy II Plus 

This disk is on the most want- 
ed list, (I should know, I asked 
for it to be put there.) 

If you look at this disk with a 
nibble editor you will see that 
the only thing that has been 



changed on the disk is the epi- 
logues. They have been chang- 
es to FF FF from the normal DE 
AA. Well, this should be easy, I 
thought. I used COPYA after 
telling it to ignore checksums 
and epilogues but when I boot- 
ed the copy I got a re-boot after 
it read the first couple of tracks. 
Hmmm, the dreaded nibble 
count. I scanned the disks for 
BD 8C CO and found it in sever- 
al places on the disk. The area 
of track $02, sector $04 was the 
area I was suspicious of and 
after putting in a return at the 
beginning of the track the disk 
worked fine. 

Step-by-step 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

POKE 47426,24 
RUN COPYA 

2. Copy your original to your 
blank disk. 

3. Make the following sector 
edit. 

Irk Set Byl£ Em l2 

$02 $04 $00 A9 60 

4. Write the sector back to the 
disk. 

Note: If you want to see what 
putting the 60 does make an- 
other copy of your original and 
on the same track and sector 
put EA's from address $00-$76. 
At address $77 you will see a 60 
there. On the original disk, af- 
ter the nibble count is satisfied, 
the routine winds up at the 60 
which tells the program to go 
back where it came from, before 
it started the nibble count. 
When we put the 60 at the be- 
ginning of the nibble count we 
did the same thing, at the start 
of the routine, that was done at 
the end of the routine. 

Softkey for... 

Treasure Island 
Below the Root 
Windham Classics 

Requirements: 

The original disks 

4 blank disk sides for Treasure 

Island 
2 blank disk sides for Below the 

Root 
Any fast copy program that can 

ignore read errors 

Fm not completely sure, but 
it seems that these two pro- 
grams are not protected. I got 
them for $6.99 each and the 
disks seem different than what 
has been said about the 
Windham Classic programs in 
any of the issues of Computist. 
I have tried both of these games 
and although I haven't complet- 
ed either of them I have gotten 
a good way into each of the pro- 
grams and they seem to work 
fine. If anyone has these pro- 
grams and they have the same 
bad tracks on them I would ap- 
preciate them writing in if they 
have found out different than 
what I have said. 



Treasure Island 

1. Fast copy all four sides of 
Treasure Island and ignore 
the following read errors. 

Side A - no errors 
Side B - tracks $02 and $03 
Side C - tracks $02 to $0D 
Side D - tracks $02 to $0B 

Below the Root 

1. Fastcopybothsides of Below 
the Root and ignore the fol- 
lowing read errors. 

Side A - tracks $03 and $04 
Side A - tracks $0A to $10 
Side B - no errors 

Advanced Playing Technique for... 
Heavy Barrel 

Requirements: 

A deprotected copy 
A sector editor 



Make the following sector 
edits to side 1 of your copy to Softkey for... 
make your man invincible. 

Irk Scl B^ Frji la 

$04 $09 $21-23 CEEOFE EAEAEA . 



1. Fast copy both side of your 
original disk to your blank 
disks 

2. Make the following sector 
edit. 

Irk Set Byl£ Fru l2 

$00 $06 $43-79 D0F4BD8C A9FC85F0 

C010FBC9 85F385F6 

E7D04ABD A9EE85F1 

8CC010FB 85F285F5 

C9E7D041 A9E785F4 

BD8DC0A0 85F7EAEA 

10 24 80 BD EA EAEAEA 

8CC010FB EA EAEAEA 

88F032C9 EAEAEAEA 

EED0F4EA EAEAEAEA. 

EAA007BD EAEAEAEA 

8CC010FB EAEAEAEA 

99F000EA EAEAEAEA 

8810F4 EAEAEA 

3. Write the sector back to the 
disk so you don't have to re- 
enter all of this again. 



Stellar 7 



Advanced Playing Technique for... 
Expedition Amazon 
Penguin 

Requirements: 

A deprotected copy 
A sector editor 

I did this about 2 years ago, 
(when I wasn't too sure what I 
was doing), but maybe this will 
be of some help to someone. 

Note: All of the sector edits 
shown here are to be done to 
side 2 of your copy. 

You will find the prices for 
the equipment on track $0B, 
sector $02, starting at byte $83 
and on track $1A, sector $05 
starting at byte $00. 

To modify the amount of mon- 
ey you have, the amount of 
equipment you have, how many 
lives have been lost, etc. sector 
edit the following areas. 

Track SggtQr 

$02 $0D 

$06 $09 

$16 $00 

$18 $06 

$1F $0C 

It appears that the disk writes 
back to two of the five tracks at 
random so you will have to write 
down your current stats and 
check all five of the areas until 
you find the two that contain 
the current stats. Once you play 
the game, as your stats are writ- 
ten back to the disk, if you de- 
cide to edit them again they 
will probably not be on the same 
track and sectors that they were 
before. 

Softkey for... 

Where in North Dakota is 

Carmen Sandiego 

Broderbund 

Requirements: 

The original disk 
2 blank sides 
Copy II Plus 



Pengiun Software 

Requirements: 

The original disk 
A blank disk 

COPYA from your DOS 3.3 sys- 
tem master 
Copy II Plus 

This disk carries the same 
protection as a lot of the other 
Penguin programs do. Looking 
at the disk with a nibble editor 
shows that the first byte of the 
address header changes on ev- 
ery other track from D5 to D4 
and the address and data epi- 
logues are DA AA instead of the 
normal DE AA. 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

RUN COPYA 

2. After COPYA loads press 
CONTROL-C. This will stop 
the program. Now enter: 

70 

CALL-151 

B954 :29 00 this tells DOS to ignore the 

first byte of the address header 
B993:00 this tells DOS to ignore the first 

byte of the address epilogue 
B925:1 8 60 this tells DOS to ignore the 

data epilogues 
3D0G 
RUN 

3. Copy your original disk to 
your blank disk. 

4. Make the following sector 
edits to your copy. 

Irk Ssl Bylg Fffifn Ifi 

$00 $02 $9E DA DE 

$00 $03 $35 DA DE 

$00 $03 $91 DA DE 

$00 $03 $54-58 4A496AD0EF C9D5D0F0EA 

5. Write each sector to the disk 
before going to the next sec- 
tor. 

Softkey for... 

The Writing Workshop 
Milliken 

Requirements: 

The original disks 
11 blank disk sides 
DOS 3.3 system master 
Copy II Plus 
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Super lOB vl.5 

A way to reset inti the monitor 
The controller shown below 
A blank initialized slave disk 

Since there are quite a few 
disks in this program let's get 
rid of a few of them quickly. 

Fast copy the following disks 
to some of your blank disks. 
File Cabinet Disk 
Postwriting Spelling Checker 

Disk 1 
Postwriting Spelling Checker 

Word List 
Mechanics Checker Word List 
Help Disk 

Now for the remaining disks. 

1. Boot your DOS 3.3 system 
master and after the Apple- 
soft prompt appears put in one 
of your blank disks and enter: 

INIT BOOT 
DELETE BOOT 

Label this disk Word Process- 
ing and put it aside. 

2. Make a change so that the 
rest of the disks will be ini- 
tialized to BRUN the boot file. 

CALL-151 

9E42:34 

3D0G 

3. Initialize the rest of the disks. 
INIT BOOT 

DELETE BOOT 

4. Boot the original Word Pro- 
cessing disk and at the Apple- 
soft prompt reset into the 
monitor. 

5. Move the RWTS to a safe 
place by entering: 

1900<B800.BFFFM 

6. Put in your slave disk and 
enter: 

C600G 

7. After the disk boots and the 
Applesoft prompt appears in- 
sert your Super lOB disk and 
save the RWTS to it by enter- 
ing: 

BSAVE RWTS.WRITING WORK- 
SHOP, A$1 900, L$800 

8. Install the controller into 
Super lOB, run it and copy 
your original Word Process- 
ing disk to your blank disk 
that you labeled Word Pro- 
cessing. Answer NO when 
asked if you want to INITial- 
ize the blank disk. 

9. Repeat step 8 for the remain- 
ing disks. You can use the 
RWTS that you captured from 
the first disk for the other 
disks. 

CONTROLLER 

10 00 REM THE WRITING 

WORKS HOP. CON 
1010 TK = 3: ST = : LT = 

35: CD = WR 
1020 Tl = TK: GOSUB 490: 

GOSUB 360: ONERR GOTO 

550 
1030 GOSUB 430: GOSUB 

100:ST = ST + 1: IF ST < 

DOS THEN 1030 
1040 IF BF THEN 1060 
1050 ST = :TK = TK + 1 : 

IF TK < LT THEN 1030 
1060 GOSUB 490 :TK = Tl : ST 

= 0: GOSUB 360 
1070 GOSUB 430: GOSUB 

100:ST = ST + 1: IF ST < 

DOS THEN 1070 



1080 ST = 0:TK = TK + 1 : 
IF BF = AND TK < LT 
THEN 107 

1090 IF TK < LT THEN 1020 

1100 HOME : PRINT ^^COPYO 
DONE" : END 

10010 IF PEEK (6400) < > 
162 THEN PRINT CHR$ (4)n 
^'BLOADORWTS . WRIT 
INGOWORKS HOP , A$ 1 9 " 

Checksums 

1000-$356B 1040-$6342 1080-$6CA2 

1010-$3565 1050-$ABA3 1090-$9DGA 

10.20-$6170 1060-$20C0 1100-$9A4D 

1030-$7771 1070-$28C5 10010-$B7D1 

You are finally done! 

Softkey for... 

Steps to Comprehension 
Educational Pubttshing Concepts 

Requirements: 

The original Steps To Compre- 
hension disks 
8 blank disks 
DOS 3.3 system master 
A sector editor 

I left out some sector edits in 
my softkey that appeared in is- 
sue 68 of Computist. I am re-, 
peating the entire softkey here 
with all of the sector edits. 

1. Boot your DOS 3.3 system 
master and at the ] prompt 
enter: 

POKE 47426,24 ignore checksums and 

epilogues 
RUN COPYA 

2. Copy all 8 sides of your orig- 
inal to your blank disks. 

3. Make the following sector 
edits to your copy of your mas- 
ter disk. 



Trk M m 


From 


Ifi 


$00 $02 $A3 


DE 


AA 


$00 $03 $3F 


DE 


AA 


$00 $03 $42 


38 


18 



4. Write each sector back to the 
disk before going to the next 
sector. 

My apologies to whoever used 
my original softkey. 

Softkey for... 

Steps to Comprehension 
Password Repair Disk 

Educational Pubttshing Concepts 
Requirements: 

The original Steps To Compre- 
hension Repair disk 
A blank disk 
DOS 3.3 system master 
Copy II Plus 

1. Boot your DOS 3.3 system 
master and at the ] prompt 
enter: 

POKE 47426,24 ignore checksums and 

epilogues 
RUN COPYA 

2. Copy your original to your 
blank disk. 

3. Make the following sector edit 
to your copy. NOTE: Some of 
these edits might not be need- 
ed if the "TO" bytes are on 
your copy already. . 

Irk M Byte Fm! la 

$00 $03 $42 38 18 

$00 $03 $35 AA DE 

$00 $03 $91 AA DE 

$00 $03 $9B DE AA 

$00 $02 $9E AA DE 

$00 $02 $A3 DE AA 



4. Write each sector back to the 
disk before going to the next 
sector. 

Softkey for... 

Children's Writing and 
Publishing Center 

The Learning Company 

Requirements: 

The original disks 
5 blank sides 

COPYA from your DOS 3.3 sys- 
tem master 
Any fast copy program 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

POKE 47426,24 
RUN COPYA 

2. Copy side 1 of your program 
disk to a blank disk. 

3. Use any fast copy program to 
copy the remaining sides to 
the rest of your blank disks. 

That's it. 

Softkey for... 

Cut and Paste 
Electronic Arts 

Requirements: 

The original disk 

A blank disk 

Copy II Plus 

Super lOB vl.5 

The controller shown below 

The softkey in issue 13, page 
26, of Computist wouldn't work 
with my copy of the program. I 
was able to modify the control- 
ler and get it to work. If your 
copy wouldn't work with it ei- 
ther then try this softkey. 

1. Use Copy II Plus to format 
your blank disk. 

2. Use the SECTOR COPY func- 
tion of Copy II Plus to copy 
tracks $00 to $02 from your 
original to the disk you just 
formatted. 

3. Install the controller into 
Super lOB, run it and copy 
your original disk to your 
blank disk. Answer NO when 
asked if you want to INITial- 
ize the blank disk. 

CONTROLLER 

1000 REM CUT AND PASTE. CON 
1010 TK = 7:ST = : LT = 

35: CD = WR 
1020 Tl = TK: GOSUB 490: 

IF TK > 3 THEN RESTORE : 

GOSUB 210 
1030 GOSUB 430: GOSUB 

100: ST = ST + 1: IF ST < 

DOS THEN 1030 
1035 IF TK = 2 THEN GOSUB 

210 
1040 IF BF THEN 1060 
1050 ST ~ 0:TK = TK + 1: 

IF TK < LT THEN 1030 
1060 GOSUB 490:TK = Tl : ST 

= 0: GOSUB 230: IF TK = 

THEN GOSUB 1110 
1070 GOSUB 430: GOSUB 

10 0: ST = ST + 1: IF ST < 

DOS THEN 1070 
1080 ST = 0:TK = TK + 1: 

IF BF = AND TK < LT 

THEN 107 
10 90 IF TK < LT THEN 1020 
1100 HOME : PRINT ^'COPYO 

DONE" : END 
1110 POKE 19015,170: POKE 

19025,173: POKE 18024,24 



1120 POKE 18025,96: POKE 

18026,235: RETURN 
62010 DATA 213,187,207 

Checksums 

1000-$356B 1040-$2C83 1090-$37F7 

1010-$3F61 1050-$8A4C 1100-$E224 

1020-$237A 1060-$6A59 1110-$E706 

1030-$357B 1070-$625C 1120-$C6D2 

1035-$AADA 1080-$F5DA 62010-$0042 

4. Make the following sector 
edits to your copy. 

Irk Set Byte Frfim la 

$02 $03 $47 BB AA 

$02 $03 $51 CF AD 

Enjoy. 

Softkey for... 

Word-A-Mation 
Sunburst Communications 

Requirements: 

The original disk 

A blank disk formatted in Pro- 
DOS (format the disk with 
the volume name AVORK) 

A ProDOS formatted disk with 
only ProDOS 8 and Basic Sys- 
tem on it. 

A blank work disk 

ProDOS Super lOB 

Copy ][ Plus 

The controller listed below 

A way to reset into the monitor 

A normal ProDOS file 

This Sunburst product will 
softkey very easily using Bill 
Jetzer's ProDOS Super lOB. 
You should have the ProDOS 
Super lOB, along with the sup- 
port files, already on a ProDOS 
disk. These files can be found in 
issue 62 of Computist starting 
on page 31. 

1. Boot the original disk and 
write down what version num- 
ber of ProDOS is being used. 
Then when you see the Apple- 
soft prompt press CONTROL- 
RESET to stop the boot. 

2. Enter the following. The rou- 
tine you will enter will move 
the entire language card, ex- 
cept for bank 2, into memory 
at $8000. 

CALL-151 

300:AD 88 CO A2 GO BD 00 DO 

:9D 00 80 E8 DO F7 EE OA 

:03 EE 07 03 DO EF AD 8A 

:C0 60 

300G 

If after doing 300G, and press- 
ing RETURN the computer 
freezes just press CONTROL- 
RESET to get back to the Ap- 
plesoft prompt and then enter 
CALL-151 to get back into the 
monitor. 

3. If the ProDOS version on the 
original disk was 1.0 do this 
next step. If it was 1.1 or new- 
er skip to step 4. 

8000<A800.AEFFM 

4. Put in the ProDOS disk that 
contains only ProDOS and 
Basic System and boot it. 

C600G 

5. At the Applesoft prompt put 
in the disk that contains Pro- 
DOS Super lOB and enter: 

CALL-151 
1900<8000.86FFM 
BSAVE DRVR.WORD-A-MATION, 
A$1900,L$700 
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6. Install the controller into 
ProDOS Super lOB, run it and 
copy your original disk to your 
blank work disk. 

CONTROLLER 

2000 REM WORD-A-MATION.CON 
2010 BK = 2:LB = 279 :CD = 

WR 
2020 GOSUB 380: CD = RS : 

GOSUB 30 
2030 GOSUB 380 :CD = WR: 

GOSUB 30 
2040 BK = PEEK (BLK) + 

PEEK (BLK + 1) * 256: IF 

BK < LB THEN 2020 
2050 A$ = ^^DONEOWITHOCOPY" 
10010 PRINT CHR$ (4) : 

""BLOADODRVR . WORD-A- 
MATION,A$1900'' 

Checksums 

2000-$DF03 2030-$7703 10010-$DEC6 
2010-$E75A 2040-$9DF2 
2020-$F719 2050-$FFF2 

7. Use Copy ][ Plus to copy all of 
the files, except for the Pro- 
DOS file, from the copy you 
just made to your blank, Pro- 
DOS formatted disk. Next 
copy a normal ProDOS file 
onto the disk you just copied 
all of the files onto. 

8. Rename the disk to the same 
volume name as the disk that 
was made with the ProDOS 
Super lOB. 

You're all done. 

Soflkey for... 

Read, Write & Publish 
D.C. Heath 

Requirements: 

The original disks 

A blank disk formatted in Pro- 
DOS (format the disk with 
the volume name /WORK) 

4 additional blank disk sides 

A ProDOS formatted disk with 
only ProDOS 8 and Basic Sys- 
tem on it. 

A blank work disk 

ProDOS Super lOB 

Copy ][ Plus 

The controller listed below 

A way to reset into the monitor 

A normal ProDOS file 

This program will also soft- 
key very easily using Bill 
Jetzer's ProDOS Super lOB. 

1. Boot the original disk and 
write down what version num- 
ber of ProDOS is being used. 
Then when you see the Apple- 
soft prompt press CONTROL- 
RESET to stop the boot. 

2. Enter the following. The rou- 
tine you will enter will move 
the entire language card, ex- 
cept for bank 2, into memory 
at $8000. 

CALL-151 

300:AD 88 CO A2 00 BD 00 DO 

308:9D 00 80 E8 DO F7 EE OA 

310:03 EE 07 03 DO EF AD 8A 

318:C0 60 

300G 

If after doing 300G, and press- 
ing RETURN the computer 
freezes just press CONTROL- 
RESET to get back to the Ap- 
plesoft prompt and then enter 
CALL-151 to get back into the 
monitor. 

3. If the ProDOS version on the 
original disk was 1.0 do this 



next step. If it was 1.1 or new- 
er skip to step 4, 
8000<A800.AEFFM 

4. Put in the ProDOS disk that 
contains only ProDOS and 
Basic System and boot it. 

C600G 

5. At the Applesoft prompt put 
in the disk that contains Pro- 
DOS Super lOB and enter: 

CALL-151 

1900<8000.86FFM 
BSAVE DRVR.READ, WRITE & 
PUBLISH, A$1900, L$700 

6. Install the controller into 
ProDOS Super lOB, run it and 
copy your original disk to your 
blank work disk. 

CONTROLLER 

20 00 REM READ, WRITE & 

PUBLISH. CON 
2010 BK = 2:LB = 279 :CD = 

WR 
2020 GOSUB 380: CD = RS : 

GOSUB 30 
2030 GOSUB 380 :CD = WR: 

GOSUB 30 
2040 BK = PEEK (BLK) + 

PEEK (BLK + 1) * 256: IP 

BK < LB THEN 2020 
2050 A$ = "VDONEOWITHO 

COPY" 
10010 PRINT CHR$ (4) : 

'"BLOADODRVR . READ , OWRITE 

0&0PUBLISH,A$1900'' 

Checksums 

2000-$DF03 2030-$7703 10010-$D048 
2010-$E75A 2040-$9DF2 
2020-$F719 2050-$FFF2 

7. Use Copy ][ Plus to copy all of 
the files, except for the Pro- 
DOS file, from the copy you 
just made to your blank, Pro- 
DOS formatted disk. Next 
copy a normal ProDOS file 
onto the disk you just copied 
all of the files onto. 

8. Rename the disk to the same 
volume name as the disk that 
was made with the ProDOS 
Super lOB. 

9. Use any fast copy program to 
copy both double sided data 
disks. 

You're finished. 

Soflkey for... 

M uppet Word Book 
Sunburst Communications 

Requirements: 

The original disk 

A blank disk formatted in Pro- 
DOS (format the disk with 
the volume name /WORK) 

A ProDOS formatted disk with 
only ProDOS 8 and Basic Sys- 
tem on it. 

A blank work disk 

ProDOS Super lOB 

Copy ][ Plus 

The controller listed below 

A way to reset into the monitor 

A normal ProDOS file 

Here is still another Sunburst 
product that will softkey easily 
using ProDOS Super lOB. 

1. Boot the original disk and 
write down what version num- 
ber of ProDOS is being used. 
Then when you see the Apple- 
soft prompt press CONTROL- 
RESET to stop the boot. 

2. Enter the following. The rou- 
tine you will enter will move 



the entire language card, ex- 
cept for bank 2, into memory 
at $8000. 
CALL-151 

300:AD 88 CO A2 00 BD 00 DO 
308:9D 00 80 E8 DO F7 EE OA 
310:03 EE 07 03 DO EF AD 8A 
318:C0 60 
300G 

If after doing 300G, and press- 
ing RETURN the computer 
freezes just press CONTROL- 
RESET to get back to the Ap- 
plesoft prompt and then enter 
CALL-151 to get back into the 
monitor. 

3. If the ProDOS version on the 
original disk was 1.0 do this 
next step. If it was 1.1 or new- 
er skip to step 4. 

8000<A800.AEFFM 

4. Put in the ProDOS disk that 
contains only ProDOS and 
Basic System and boot it. 

C600G 

5. At the Applesoft prompt put 
in the disk that contains Pro- 
DOS Super lOB and enter: 

CALL-151 

1900<8000.86FFM 
BSAVE DRVR.MUPPET WORD 
BOOK, A$1 900, L$700 

6. Install the controller into 
ProDOS Super lOB, run it and 
copy your original disk to your 
blank work disk. 

CONTROLLER 

2000 REM MUPPET WORD BOOK 
2010 BK = 2:LB = 279 :CD = 

WR 
2020 GOSUB 380: CD = RS : 

GOSUB 30 
2030 GOSUB 380: CD = WR: 

GOSUB 30 
2040 BKr= PEEK (BLK) + 

PEEK (BLK + 1) * 256: IF 

BK < LB THEN 2020 
2050 A$ = ^^DONEOWITHOCOPY" 
10010 PRINT CHR$ (4) : 

^^BLOADODRVR . muppetOwordO 

BOOK,A$1900" 

Checksums 

2000-$DF03 2030-$7703 10010-$3425 
2010-$E75A 2040-$9DF2 
2020-$F719 2050-$FFF2 

7. Use Copy ][ Plus to copy all of 
the files, except for the Pro- 
DOS file, from the copy you 
just made to your blank, Pro- 
DOS formatted disk. Next 
copy a normal ProDOS file 
onto the disk you just copied 
all of the files onto. 

8. Rename the disk to the same 
volume name as the disk that 
was made with the ProDOS 
Super lOB. 

You're all done. 

Softkey for... 

The Labeler 
Sophisticated Software 

Requirements: 

The original disk 
A blank disk 
DOS 3.3 system master 
A way to reset into the monitor 
Copy ][ Plus 

A blank initialized slave disk 
with no HELLO program 

In this softkey I will tell you 
how to deprotect this disk on a 
//gs with the ROM revision 01 
and on a 128K //e, //c, or //gs 



with the original ROM, (if when 
you first turn on your //gs it has 
01 at the bottom of the screen 
you have the revision, if it 
doesn't have anything at the 
bottom of the screen it is the 
original ROM.) 

For the //gs with revision 01 
ROM do the following. 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt put in your blank disk 
and enter: 

INITHELLO 
DELETE HELLO 

2. Use Copy ][ Plus to copy all of 
the files from your original 
disk to your initialized disk 
except the HELLO file. 

3. Boot your original disk. After 
the program loads reset into 
the monitor and enter: 

1/800 <0/800.4000M 

0/AF.BO write down what the two bytes 

are at AF and BO 

\ 

3. Boot your slave disk. 
C600G 

4. When you get the Applesoft 
prompt enter: 

CALL-151 

0/800 < 1/800.4000M 

0/AF: ?? ?? replace the ?? ?? with the 
two bytes that you wrote down 

(5trD C hold down the CONTROL key, 
press the C key and then press RE- 
TURN 

5. Put in the disk that you cop- 
ied the files to and enter: 

SAVE HELLO 

That's it. 

For the //gs with the original 
ROM, //c, and a 128K //e do the 
following. 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt put in your blank disk 
and enter: 

INIT HELLO 
DELETE HELLO 

2. Use Copy ][ Plus to copy all of 
the files from your original 
disk to your initialized disk 
except the HELLO file. 

3. Boot your slave disk. At the 
Applesoft prompt enter: 

PR#3 

CALL-151 

0:8D03C0 8D05C0 4C00C6 

4. Put in your original disk and 
enter: 

OG 

5. When the drive stops press 
(ctrD reset and enter: 

CALL-151 

300:18 4011 03 

3F8:4C 00 03 

800 < 800.3FFF ^ Y don't type "ctrl 
r ' , hold down the CONTROL key, 
press the Y key and then press return 

AF<AF.BO(^DY 

(cfRp C 

6. Put in the disk that you cop- 
ied the files to and enter: 

SAVE HELLO 

That^s it. 

Softkey for... 

Microzine #27 
Scholastic 

Requirements: 

The original disks 
4 blank disk sides 
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COPYA from your DOS 3.3 sys- 
tem master 
Any fast copy program 

The protected disk has al- 
tered epilogues and the first 
byte of the address header 
changes on every other track 
from D5 to D4. 

1. Fast copy both sides of disk 
one. This disk is not protect- 
ed. 

2. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

CALL-151 

B942:1 8 ignore checksums and epilogues 

B954 :29 00 ignore the first byte of the 

address header 
3D0G 
RUN COPYA 

3. Copy both sides of disk 2 to 
two blank disk sides. 

No other changes are neces- 
sary. 

Softkey for... 

M-ss-ng L-nks English Editor 
M-ss-ng L-nks Classics Old and 

New 

M-ss-ng L-nks Young Peoples 

Literature 

Word Quest 

A Wrinkle in Time 

The Puzzler 

High Wire Logic 

Getting Ready to Read and Add 

Sunburst Communications 

Requirements: 

The original disk 

A blank disk for each program 

DOS 3.3 system master 

Demuffin Plus 

A way to reset into the monitor 

A blank INITialized slave disk 

These Sunburst titles can be 
deprotected by using Demuffin 
Plus and the RWTS of the pro- 
tected disk to read the files on 
the original disk then write the 
information back to your blank 
disk. 

1. Boot your DOS 3.3 system 
master and INITialize your 
blank disk by entering the fol- 
lowing. 

Note: Not all of the programs 
use the same greeting program 
name so check the following list. 

For: 
M-ss-ng L-nks English Editor 

INIT HELLO© 
DELETE HELLO@ 

For: 
M-ss-ng L-nks Classics Old and 

New 
M-ss-ng L-nks Young Peoples 

Literature 
A Wrinkle in Time 
High Wire Logic 
Getting Ready to Read and Add 

INIT LOGO 
DELETE LOGO 

For: 
Word Quest 
The Puzzler 

INIT HELLO 
DELETE HELLO 

2. Boot your original disk and 
reset into the monitor after 
the Applesoft prompt appears. 



3. Move the RWTS to a safe 
place, so it won't be destroyed 
when you boot your slave disk, 
by entering: 

6800<B800.BFFFM 

4. Boot your slave disk 
C600G 

5. Put in your Demuffin Plus 
disk and enter 

CALL-1 51 gets you into the monitor 

BLOAD DEMUFFIN PLUS,A$803 
FF59G if you hear a beep ignore it 

B800<6800.6FFFM moves the protected 

RWTS back to its original location 
A851G reconnects DOS 

803G starts Demuffin Plus 

5. Put your original disk in and 
copy all of the files to your 
blank initialized disk. When 
asked to put in a file name 
enter = and when asked if you 
want prompting answer N. 

Softkey for... 

Computers in Government 

Writing an Opinion Paper 

Polls and Politics 

Energy House 

Student Stories 

Ducks 

Pets, Ltd 

Classification Volume 1 

Health Maintenance Volume 1 

Health Maintenance Volume 2 

MECC 

Requirements: 

The original disk(s) 

A blank initialized disk for each 

title 
A blank initialized slave disk 
Super lOB vl.5 

A way to reset into the monitor 
The controller listed below 

To deprotect these MECC ti- 
tles we will use Super lOB with 
the Swap Controller and use 
the RWTS of the protected disk 
to read the original disk then 
use a normal RWTS to write the 
information back to your blank 
disk. 

1. INITialize your blank disk(s) 
INIT HELLO 

DELETE HELLO 

2. Boot your original disk and 
at the Applesoft prompt reset 
into the monitor. 

3. Move the RWTS to a safe 
place by entering: 

1900<B800.BFFFM 

4. Put in your slave disk and 
enter: 

C600G 

5. After the disk boots and the 
Applesoft prompt appears in- 
sert your Super lOB disk and 
save the RWTS to it by enter- 
ing: 

BSAVE RWTS.MECC, A$1900, 
L$800 

6. Install the controller into 
Super lOB, run it and copy 
your original disk to your 
blank disk. Answer NO when 
asked if you want to INITial- 
ize the blank disk. 

CONTROLLER 

10 00 REM MECC. CON 

1010 TK = 3:ST = 0:LT = 

35: CD = WR 
1020 Tl = TK: GOSUB 490: 

GOSUB 360: ONERR GOTO 

550 



1030 GOSUB 430: GOSUB 

100:ST = ST + 1: IF ST < 

DOS THEN 1030 
1040 IF BF THEN 1060 
1050 ST = 0:TK = TK + 1 : 

IF TK < LT THEN 1030 
10 60 GOSUB 490:TK = T1:ST 

= 0: GOSUB 360 
1070 GOSUB 430 : GOSUB 

100:ST = ST + 1: IF ST < 

DOS THEN 1070 
1080 ST = 0:TK = TK + 1: 

IF BF = AND TK < LT 

THEN 1070 
10 90 IF TK < LT THEN 

10201100 HOME : PRINT 

""COPYODONE" : END 
10010 IF PEEK (6400) < > 

162 THEN PRINT CHR$ (4) 

''BLOADORWTS.MECC,A$1900" 

Checksums 

' 1000-$356B 1040-$6342 1080-$6CA2 

1010~$3565 1050-$ABA3 1090-$496E 

1020-$6170 1060-$20C0 10010-$2D2E 

1030-$7771 1070-$28C5 

Softkey for... 

Creature Creator 
Designware 

Requirements: 

The original disk 

A blank disk 

A sector editor that has search 

capability 
Any fast copy program 

1 . Fast copy the original to your 
blank disk. 

2. With the sector editor make 
the following edit to your copy. 

Irk Ssl Byle Em la 

$00 $03 $64-65 A51E A9F0 

4. Write the sector back to the 
disk 

Softkey for... 

The Flying Carpet 
Learning Technologies 

Requirements: 

The original disk 
A blank disk 

COPYA from your DOS 3.3 sys- 
tem master 
A sector editor 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

POKE 47426,24 
RUN COPYA 

2. Copy your original to your 
blank disk. 

3. With the sector editor make 
the following edit to your copy. 

Irk Set Bjie Fru l2 

$11 $00 $01 11 03 

$20 $02 $75-76 DO ED 1860 

4. Write the sector back to the 
disk 

Softkey for... 

Let's Go Fishing 
Learning Technologies 

Requirements: 

The original disk 
A blank disk 

COPYA from your DOS 3.3 sys- 
tem master 
A sector editor 

1. Boot your DOS 3.3 system 
master and at the Applesoft 
prompt enter: 

POKE 47426,24 

RUN COPYA 



2. Copy your original to your 
blank disk. 

3. With the sector editor make 
the following edit to your copy. 

Trk Sfil Byte Frfim Ifi 

$11 $00 $01 11 03 

$09 $09 $75 DO ED 1860 

4. Write the sector back to the 
disk 

Softkey for... 

Fun from A - Z 
MECC 

Requirements: 

The original disk 

A blank disk 

A sector editor 

Super lOB vl.5 

The controller shown below 

1. Install the controller into 
Super lOB, run it and copy 
your original disk to your 
blank disk. Answer YES when 
asked if you want to INITial- 
ize the blank disk. 

CONTROLLER 

1000 REM FUN FROM A - Z 
1010 TK = 0:LT = 1 : ST = 

15:LS = 15:CD = WR:FAST 

= 1 
1020 GOSUB 430: GOSUB 490: 

GOSUB 610 :T1 = TK:TK = 

PEEK (TRK) :TK = Tl 
1030 GOSUB 430: GOSUB 490: 

GOSUB 610: IF PEEK (TRK) 

= LT THEN 1050 
1040 TK = PEEK (TRK):ST = 

PEEK (SCT) : GOTO 102 
1050 TK = 1:LT = 35:ST = 

15:LS = 15: CD = WR:FAST 

= 1 
1060 RESTORE : GOSUB 190: 

GOSUB 210: GOSUB 430: 

GOSUB 490: GOSUB 610 
1070 GOSUB 230: GOSUB 430: 

GOSUB 490: GOSUB 610: IF 

PEEK (TRK) = LT THEN 

1090 
1080 TK = PEEK (TRK) : ST = 

PEEK (SCT) : GOTO 1060 
10 90 HOME : PRINT 

^^COPYODONE'' : END 
5000 DATA 170,213,173, 

213,150,170 

Checksums 

1000-$356B 1040-$AB41 1080-$1C99 

1010-$EA41 1050-$A4EA 1090-$A212 

1020-$9224 1060-$36FF 5000-$083D 

1030-$A1B2 1070-$03CB 

2. Make the following sector 
edits to your copy. 

Irk Ssl Byie Em l2 ' 

$00 $02 $58 96 AA 

$00 $02 $5D AA AD 

$00 $02 $F1 96 AA 

$00 $02 $FC AA AD 

$00 $03 $55 AA D5 

$00 $03 $5P D5 AA 

$00 $03 $6A AD 96 

$00 $06 $7A AA D5 

$00 $06 $7F D5 AA 

$00 $06 $84 AD 96 

3. Write each sector to the disk 
before going to the next sec- 
tor. 
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Kracking 
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Softkey for... 

Kameari 
AdO'Soft (Japan) 

Both because Mr. KRAC- 
MAN was generous enough to 
send me an original of the pro- 
gram, and because the original 
puckman was the first real pro- 
tected disk I ever broke, it was 
fun to get my hands on the new 
"super puckman**, or Kameari. 
It turned out to be not quite as 
hard to break as the first one, 
but it provided some interest- 
ing challenges. 

If you catch the program at 
the right point, it's small enough 
to fit in a normal DOS BFILE, 
so we won't get to go through 
the theory and practice of pro- 
gram packing on this one. The 
sequencing used to load the 
game and access the disk later 
is a little unusual, and would 
have been tougher if they hadn't 
made a few mistakes. 

A first-stage boot trace re- 
veals the first interesting 
trick — the contents of $814- 
$8FF are eXclusive-OR'ed 
(XOR) with the address low byte 
and stuffed into page one with 
some cute code: 



0801 


LDX $26 


0803- 


txs 


0804- 


DEC $27 


0806- 


LDA $26),Y 


0808- 


EOR $26 


080A 


TSX 


080B 


PHA 


flSOC 


DEC $26 


080E 


cpx m 


0810- 


BNE $806 


0812- 


RTS 



Now, this is not bad for the 
first part of a protection scheme, 
because it requires a reason- 
able knowledge of the DOS boot 
process as well as 6502 stack/ 
page one usage. The tricks are: 

•You have to know (or guess) 
that $26 contains and $27 con- 
tains 9 after the first stage boot. 

•You have to understand how 
the indexed, indirect load works 
at $806. 

•You need an understanding 
of the TSX and TXS instruc- 
tions. 

•You need to interpret the 
final RTS correctly. 

(If you know all these, skip 
this explanation and go on to 
the meat of the protection 
scheme below). 

In the order listed above, lo- 
cation $26 contains from the 
boot ROM at location $0652, 
where the accumulator was 
stored there after calling the 
"WAIT" routine at $FCA8 (ace 
= on exit from "WAIT"). Loca- 
tion $27 is the high byte of the 



two-byte storage pointer, audit 
is incremented from $08 to $09 
in case there's more than one 
sector to load in on the first 
stage boot. LDA ($26),Y means 
look at the location pointed to 
by $26 and $27, add the con- 
tents of the Y-register to it, and 
load the accumulator with the 
contents of that location: If 
$26=32, $27=08, and the Y- 
reg=17, the address is $832 + 
$17, or $849. Next, as those of 
you who stayed awake through 
the description of the stack and 
stack pointer in the Arcade 
Machine file will recall, the TSX 
and TXS instructions refer to 
transferring a byte between the 
-> stack pointer<- and the X-reg- 
ister, not between the stack and 
the register. 

The first byte fetched from 
$26 through the X-reg is used to 
initialize the stack pointer at 
$00, meaning that the next byte 
pushed on the stack will be 
placed in location $100. Since 
the stack pointer is a nine bit 
hardware register with the most 
significant bit set, it will al- 
ways contain a value between 
$100 and $1FF. If you "push^ 
(PHA) another byte onto the 
stack, it goes not into $FF, but 
into $1FF. Successive bytes go 
into $1FE, $1FD, etc. This is 
known as "stack wraparound"*, 
and was used by IDSI in their 
"JUGGLER'' protection, among 
others. After the first time 
through, each byte from $8FF 
down to $814 is exclusive-ored 
with the address low byte ($FF- 
$14), and pushed on the stack 
in the corresponding location 
from $1FF to $114. Each time 
through, the stack pointer is 
loaded into the X-register to 
compare it with number #$14 to 
find out if enough bytes have 
been transferred. When $14 is 
found, they do an "RTS"". this 
takes the two bytes above the 
stack pointer, increments the 
low byte, and places them into 
the program counter. The pro- 
gram continues to run at the 
new location (a variation of 
"jumping through the stack"*). 

The new starting location is 
$116 (it may seem a little 
strange to execute code out of 
what is normally the stack page, 
but there's nothing illegal about 
it. Applesoft, in fact, has a short 
subroutine called "CHRGET" at 
$B1-C8 in zero page!). Briefly, 
the program runs a checksum 
on $120-$1FF to make sure 
those nasty Krackists haven't 
changed anything, then clears 
all of memory from $800-$B7FF. 
After setting up the screen to 
view Hires Page two (so you 
can't see the read routine load- 
ing in across the text screen 
memory), track of the disk is 
searched for the byte sequence 
"DD AD DA." Astute readers of 
this column will recall that this 
is the old Sirius trademark, and 
just the beginning of the rip-off 
of Sirius protection techniques 
used by the publisher (appar- 
ently, it's all right to plagiarize 
code from a competitor's pro- 



tection scheme, but not to make 
backup copies of software pro- 
tected with the stolen code!). 
The real loader program is load- 
ed into $400-$7FF (remember 
Cycled and Friends?), and after 
checking for a single epilog byte 
of $EE on the track, we do a 
checksum on zero page and jump 
to $400 with the checksum byte 
in the accumulator. The old 
"4+4" nibblizing from SIRIUS 
is used, and the program is con- 
tained in a single record which 
is $800 nibbles long and follows 
sector 0, which is in normal DOS 
format, on track (the nice 
things about 4+4 nibblizing are 
that individual bytes can be lo- 
cated and changed, as described 
in the "WAY OUT" file, and the 
number of nibbles is always 
exactly equal to twice the num- 
ber of bytes in the record). 

At $400, the checksum of zero 
page is repeated and compared 
(they only need to be the same), 
and there is a bunch of lan- 
guage card deprotection and 
checking of the reset and NMI 
vectors. If any of the checks fail, 
an error message is printed and 
the illegal opcode $12 is execut- 
ed to cause the system to hang. 
True to the SIRIUS heritage, 
the loader then fills up memory 
by reading tracks $1-$D (twelve 
pages each) into $0800-$A3FF, 
using an address marker of "DD 
AD DA" and the $EE epilog byte- 
After jumping to $612, the main 
screen is moved from $8000- 
$9FFF to $4000-$5FFF, and the 
main program is entered at 
$800. Source code for the read^ 
er is shown below: 





ORG $0579 




STA 


$05 idestinatioR 




PHA 


ihighbyte 




LDY 


H03FE iNumberof 




STY 


$06 ipagestoread. 




LDY 


}$00 ;Clear destination 




STY 


$04 jiowivte. 




LDX 


H03FF 


H0588 


LDA 


HC08C,X;Begin to search 




BPL 


H0588 ^or the "DO ADDA- 


H058D 


CMP l$DD ;sequence. 




BNE 


H0588 


H0591 


LDA 


HC08C,X 




BPL 


H0591 




CMP l$AO 




BNE 


H0S8D 


H059A 


LDA 


HCoac,x 




BPL 


H059A 




.CMP 


nDA 




BNE 


H058D jAfter header, 


H05A3 


LDA 


HC08C.X;getthelirst 




BPL 


H0SA3 ;nibl)le,setthe 




SEC 


;carry, rotate 




ROL 


jet. and store 




STA 


$0F jtin$flF. 


H05AC 


LDA 


HC08C,X;Get the second 




BPL 


HOSAC ;nil)ble:ANDit 




AND 


$0F jwith the first 




STA 


($04),Y iStore complete 




INY 


;t)yteandgoon 




BNE 


H05A3 .lothenext. 




INC 


$05 ;Desfn address 




DEC 


$06 ;Page counter 




BNE 


H05A3 


H05BE 


LDA 


HCOSCXiCheckfor 




BPL 


H05BE lepilogbyte 




CMP f$EE 



BNE H0578 
PLA 

At this point, all the program 
resides in $0000-$8000, so it's a 
good place to interrupt and save 
it. It seems strange that, with 
all the other SIRIUS-type pro- 
tection, there's no checksum on 
the loader, so we can go in and 
change bytes on a copy of the 
disk. It's easy to copy the disk 
by using Nibbles Away with an 
address marker of "DD AD DA" 
for tracks $0-$E, but you can 
actually get by with only copy- 
ing track onto a separate disk 
(NA or Locksmith will both copy 
it without parms, since there is 
a standard DOS 3.3 sector on 
it). There is no disk error han- 
dling, so a disk with only track 
zero on it just sits and spins, 
allowing you to remove it and 
insert the original to load in 
tracks $1-$D. As in days of old, 
read in track zero using the 
track editor from Nibbles Away, 
then type "Z" to make it analyze 
the track. Set the display to the 
pointer page with "06800", then 
search for the string "AA EE AA 
AA AE AA", which is "40 00 08" 
or "JMP $0800" in 4+4 nibblize. 
Ohange this to "AE EE AE FB 
FF FF", which means "JMP 
$FF59", or "AE EE EE EF FF 
FE" which is "JMP $FEOD" for 
use with a KrakROM (the right 
one to use here is KRAKR0M4, 
since $2000-$3FFF contains 
program code and $4000-$5FFF 
has only a Hi-Res picture). 
Write the altered track to a 
blank disk with the "W" com- 
mand. 

Boot the new disk, and when 
it spins, insert the original, af- 
ter the normal load, the banner 
will be displayed for about 5 
seconds before your modifica- 
tion at $66E redirects the pro- 
gram into the monitor. Assum- 
ing that you used a Krakrom, 
the entire program is now con- 
tained in $900-$7FFF and can 
be saved as a BFILE after boot- 
ing a slave diskette. 

Modifications are easy now, 
and this is one set of "cleanup" 
activities that will bring the 
program into condition to 
BRUN: 

Boot a slave disk, then move 
page 8 back from $4800-$48FF. 

Move the stored zero page 
memory from $4000-$40FF to 
$8000-$80FF. 

Write a memory move rou- 
tine at $8050 which will restore 
zero page to $0-$FF (see be- 
low), don't forget to set up Hi- 
Res page 2 and clear the key- 
board strobe. 

Replace the picture in $4000- 
$5FFF with one containing your 
own advertising (you can reset 
the original after the boot and 
save the picture as a binary file 
for modification). 

Put "40 50 80" or "JMP $8050" 
at $7FD to start the program. 
BSAVE KAMEARI, A$7FD, L$7880. 

Move Routine (L$38) 

8050 :A0 00 B9 00 80 99 00 00 $9BD3 
8058 :C8 DO F7 A2 60 9A AD 50 $20B1 
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8060: CO AD 55 CO AD 52 CO AD $1A3A 
8068:57 CO AD 10 CO A9 80 A2 $C2AD 
8070:60 AO 00 4C 00 08 $B047 

Kameari Move Routine.src 

TXTCLR = $C050 

HISCR = $C055 

MIXCLR = $C052 

HIRES = $C057 

STROBE = $C010 

ORG $8050 

LDY l$00 

H8052 LDA H8000,Y ;reta zero 

■ STA .HOOOO,Y;pageto$0-FF 
INY 

BNE H8052 

LDX l$60 ;Set up stack 
TXS pointer and 

LDA TXTCLR ;grapfo. 

LDA HISCR 

LDA MIXCLR 

LDA HIRES 

LDA STROBE 

LDA f$80 iLoadypthe 

LDX l$60 jegisters. 

LDY l$00 

JMP H0800 ;Be9in program 

The resulting program will 
run just fine until you clear a 
board and advance to the next 
level. At that point, the disk 
starts to spin and the system 
refuses to respond to any in- 
puts. The reason is the instruc- 
tion at $B5C which jumps to 
$403, which jumps to $5D5: 

ORG $05D5 
TYA 
PHA 

LDY l$00 

STA H03FE 

H05DC LDX H03FF 

LDA HC089,X;Start the drive 

LDA f$30 

JSR WAIT 

LDA m 

JSR H0579 flead the "track" 

LDX H03FF ;into 7F00-up. 

LDA HC088,X;Stop drive 

LDA l$00 
TAY 

H05F5 EOR HJFOO.Y ;Checksum 7F00-7FFF 

INY 

BNE H05F5 

CMP m 

BNE H05DC 

JSR H7F00 ;Do sutxoutine 
LDY *$00 
H0604 CLC 

ADC m ;Wipeout 

STA H7F00.Y;theco()eso 

INY ;it must be read 

BPL H0604 ;ineachfifne. 

PLA 

TAY 

JMP H0CE8 

This routine loads the single 
page contained on track $E into 
$7F00-$7FFF, executes the sub- 
routine at $7F00, and mangles 
the code in page $7F for good 
measure. By loading the code in 
once and nop'ing the mangle 
routine, you can avoid the un- 
necessary disk access and have 
a 122-sector KAMEARI pro- 
gram to use as you see fit. 
Change $B5C from "4C 03 04" 
to "4C 80 1 A'', and put this short 
substitute routine at $1A80: 



Kameari Substitute 
Routine (L$10) 

1A80:98 48 20 00 7F 68 A8 4C $CFE9 
1A88:E8 OC $0919 

Kameari Substitute 
Routine.src 

ORG $1A80 

TYA 

PHA 

JSR H7F00 

PLA 

TAY 

JMP H0CE8 

Adding a ^Tause^^ 
routine to Kameari 

Advanced Playing Technique for... 
Kameari 
Ado Soft 

Requirements: 

Softkeyed version 

Kameari is a decent enough 
Pacman, but it lacks the "pause'' 
control with the escape key 
that's become standard in 
games from the U.S.A. You can 
add one by changing locations 
$1717-1719 to "4C 40 14" (JMP 
$1440), and adding this short 
routine at $1440: 

Pause Routine(L$27) 

1440:C9 9B FO 07 09 CB DO 12 $F532 

1448:40 5D 17 AD 10 OO AD 00 $F676 

1450:00 10 FB 09 93 DO F7 AD $3DE9 

1458:10 00 60 $E503 

Kameari Pause Routine.src 

H175D = $175D 

STROBE = $C010 

KEY = $C000 

ORG $1440 

CMP m ;Wa$it"esc"? 

BEG H144B 

CMP l$CB ;No, check for K 

BNE H145A ;Noltiiiig, so eA 

JMP H175D ;lt was K, goto 175D. 

H144B LDA STROBE ;lt was esc. dear 

H144E LDA KEY ;the strobe and 

BPL H144E ;wait for another 

CMP l$9B ;"esc" to be pressed. 

BNE H144E 

LDA STROBE ;Must clear here! 
H145A RTS 

It's a pleasant bit of nostal- 
gia to see someone using the old 
techniques with a new twist, 
and it provides us a chance to 
review some of the Kracking 
approaches that used to be 
"State-of-the-Art." See you in a 
"bit" or so. 

Unknown __^^ 

IBMSoftkeyfor... 

Diagram Master vS.O 

If you, like myself paid out 
your hard earned cash for dia- 
gram master only to find out 
it's install to hard disk will not 
work on any drive but C: (con- 
trary to what their support staff 
says), Follow the following pro- 
cedure and remove the silly copy 
protect altogether: 

1. Make a copy of DM.EXE 



2. Rename it to DM.XXX 

3. Use DEBUG 
DEBUG DM.XXX 
DCS:3FC7 

You should see the following: 

7 5 68 ... 

If not then you've got a differ- 
ent version than 5.0 and this 
won't work. 

4. If you see 75 68, then 
E CS:3FC7 EB 68 

W 
Q 
RENAME DM.XXX DM.EXE 

You now have a copy of Dia- 
gram Master without the copy 
protect. 

IBMSoftkeyfor... 

Chessmaster 2000 vl.01 

Kids, this one is real simple. 
The program disk has on it a 
hidden file which is formatted 
in weird and wonderful ways, 
ways that your common, ordi- 
nary, run of the mill copy pro- 
grams can't handle. I wasn't 
even able to get CopyllPC or 
Copy Write to work on this one. 
But then, I have a strange home- 
brew computer. Anyway, the 
program CM. EXE on your 
Chessmaster disk looks for ver- 
ify failures from these bizarre 
sectors, and when found, runs 
the program. If the sectors 
aren't found then the program 
runs as a demo, and shuts down 
after a few minutes (nice touch, 
more genteel than calling you a 
slimy bastard and disembowel- 
ing your hard disk). 

1. Make a copy of the distribu- 
tion disk using DISKCOPY. 
Ignore the dire warnings of 
unrecoverable read/write er- 
rors. The copy will have all 
normal DOS sectors, with all 
of the necessary files on it. 
Only the weird stuff won't get 
copied, but we don't need it. 
Put your original disk away 
in a nice safe place where the 
Thought Police won't get at it. 

2. Rename the file CM.EXE to 
something like CM.XXX, so we 
can use DEBUG. Startup DE- 
BUG. 

DEBUG CM.XXX 

3. Search for the byte string B8 
00 00 EB E7. 

S 0100 FFFF B8 00 00 EB E7 

XXXX : YYYYdebug gives you these 

# 

This looks for a mov ax, 0000 
instruction that gets executed 
if the program fails to find the 
weird sectors. 



4. Using the numbers from step 
3, assemble a new instruction 
here to fool the program. 

A XXXX:YYYY 
XXXXiYYYY MOV AX,0001 
XXXX:YYYY press <enter> key to exit 

Assem. 

This instruction will return a 
code that indicates the presence 
of weirdness, when in fact the 
sectors are normal. 

5. Write the program back to 
disk. 

W Writing 77777, bytes 

Q 

6. Rename the file back to .EXE 
and you now have a copy of 
Chessmaster that will run 
from the hard disk, and that 
can be copied for archival pur- 
poses 

IBM Softkey for... 

The Dambusters 

Accolade 

Use the following debug pro- 
cedure. Note that even recent 
version versions of CopyllPC 
cannot copy this software, and 
to protect your investment you 
will want to use this unprotect. 

1. Copy DAMB.EXE to a for- 
matted blank diskette. Then: 

REN DAMB.EXE DAMB.BIN 
DEBUG DAMB.BIN 

2. Now search for the use of INT 
13 

S 0000 FFFF CD 13 

I found this call at 13BC:0116 
You may find it at a different 
location, but as long as the num- 
ber ends in 16 you have the 
correct location. If it doesn't end 
with a 16 then you may have a 
different version and this un- 
protect may not work. 

3. Next look at the code after 
this call 

U xxxx:xx1 6 the number from above 

You should see the following: 

XXXX:XX16 CD13 INT 13 
XXXX:XX18 7306 JNB 0120 

If this is different, you may 
have a different version. Stop 
now. 

4. Now change the jump to an 
unconditional jump 

Exxxx:xx18 EB06 

5. Noyv' write the changes back 
to disk and end the debug ses- 
sion 

W 
Q 
REN DAMB.BIN DAMB.EXE 

Now place your original dis- 
kette in a safe place. 
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How to place an 
Unclassified Ad 

Send a typed sample copy with appro- 
priate instructions. (If possible, send text 
on a 5.25" Apple format disk.) Use up to 40 
characters per line, we will adjust word 
wrap. 

Special Graphics Instructions: The 
first three words of the first line are print- 
ed in bold for fi-ee. If you want other words 
bolded, use 5 characters less per line. Use 
10 characters less per line if you have a lot 
of uppercase bold letters. Bold letters are 
wider than normal. If the typed copy does 
not show bold, circle the words you want 
bolded and, on the side, write BOLD. If you 
want aline centered, write CENTER next 
to that line. There is no charge for center- 
ing any line. 

You must check your ad for errors, the 
first time it runs. Errors on our part will be 
corrected, then, for fi:*ee. Errors or changes 
on your part will be charged a $5 process- 
ing fee. 

"kirkiK New Rates (per line) icirki^ 

Computist club member 25^ 

All others 350 

The minimum order is ^. 

• Our liability for errors or omissions is 

limited to the cost of the ad. 

• We reserve the right to refuse any ad. 

• Washington state residents add 7.8% 

sales tax. 

• Send a check or money order (funds 
drawn on US bank only) for the entire 
amount to: 

COMPUTIST unCLASSIFIEDS 

33821 East Orville Road 

EatonviUe^WA 98328 

WANTED 

/^ost Wanted 
List^^ Softwsa^ 

Need help to deprotect a disk? 

Sbftkey hobbist is interested in acquiring 
copy protected software to deprotect. Good 
track record, many successful attempts. 
Original disk will be returned along with 
softkey for COMPUTIST. Especially 
interested in older software (pre-1988) but 
will give any disk a shot. I'm especially 
interested in: 



Drol" 

Serpentine - 

Spare Change - 

Wings of Fury- 

Star Cruiser - 

Space Eggs - 

Falcons -• 

Microwave - 



-Broderbund 

-Broderbund 

-Broderbund 

-Broderbund 

-Sirius 

-Sirius 

-Picadilly 

-Cavalier 



System: Apple He, 128K. Send disk to: 

Rich Etarip 

824 WiUiam Charles, Apt #2 

Green Bay, WI 54304 

For Sale: 

Complete collection of COMPUTIST. 

From #1 thru 83 except #27 & #43. It is in 
excellent condition except for two issues 
that have slight tears and afew have slight 
pen marks. I am asking $80 for the set and 
will not sell single issues. 

Ronald H Stein 

126 Roxbury Park 

East Amherst NY 14051 



Wanted! Information 

on Cracking IBM protection. Also soft- 
ware like Copywrite, Locksmith PC, Cen- 
tral Point Software's PC Option board and 
PC Watch, Also send list of Apple II items 
for sale. 

Joe Torzewski 

51625 Chestnut Road 

Granger IN 46530 



Apple n Nerd? 

The Ultimate reference library! 

Complete Call A.P.P.L.E.! 

Complete InSiderl 

Complete A+! 

Complete COMPUTIST 

All 10 Nibble Expresses! 

Many, many extras! 

Shipping alone would cost a fortune. 
The highest bidreceived by year-end 1992 
takes them all. Send to: 

The Amazii^^ Spiderman 

PO Box 4851 

Carson CA 90745 

For sale: 

Applied Engineering RamKeeper.in 

good working order. Includes: cable, trans- 
former, 6hr battery, manual and Apple- 
works expansion software. All reasonable 
offers will be considered. 

Kip Barker 

P.O. Box 600 

Eagle River AK 99577 

RDEX 
Contributors 

Jeff Hurlburt ..........4 

Krakowicz......21 

Jack R. Nissel 15 

Unknown .......22 



Apple Most Wanted 

63 Alcon ...Taito 

74 Algebra Shop Scholastic 

63 Alien Mind... PBI Software 

73 American History Explorer Series 

Mindscape 

75 Anchormah .......................................... Virginia Reel 

74 Animals of the Past ...........................Focus Media 

72 Ankh ......^.........»„..«...*....... Datamost 

73 Ant Farm ....Sunburst 

67 Aquatron.... Sierra 

63 Bad Street Brawler Mindscape 

73 Bank Street Beginner's Filer Sunburst 

73 Bank Street School Filer.... Sunburst 

63 Beyond Zork Infocom 

65 Bilestoad Datamost 

69 Blue Powder • Grey Smoke .........................Grade 

74 Birds - Trees & Flowers .................. ..Focus Media 

63 Border Zone Infocom 

67 Bouncing Kamungas. Penguin 

66 Boxing ...? 

65 Bureaucracy Infocom 

67 C'estLaVie Adventure International 

69 Caverns of Callisto Origin 

69 Checker Odesta 

69 Chess 7.0 ...Odesta 

81 Chessmaster2100 lie .....Sofbvare Toolworks 

75 Clue Master Detective .................. Leisure Genius 

63 Cosmic Relief Datasoft 

65 Crime & Punishment .....Imagic 

81 Crosscountry USA School Edition ...Didatech 

69 Crossword Magic v4.0 ? 

69 Cybernation Nexa Corp. 

74 Decimal Dungeon Unicorn 

74 Decisions Decisions: Colonization vl.O 

Tom Snyder Productions 

69 Delta Squadron.. Nexa Corp. 

67 Desecration Mind Games 

66 Disk Optimizer System ....Nibble Notch 

65 Dondra ..Spectrum Holobyte 

69 Dragon Eye Epyx 

69 Dueling Digits .....Broderbund 

68 D&D-M^ter Assistant vol2.... SSI 

62 DROL..... Broderbund 

74 Exploring Tables & Graphs Level 2 (SU) 

Weekly Reader 



67 Evolution.......... .....Sydney 

67 Falcons ...Piccadilly 

68 Factastics Trivia , Daystar 

75 Final Frontier Softsmith 

73 Fisher's Cove Tom Snyder Productions 

69 Fit Wars Sirius 

74 Fraction Action Unicorn 

69 Gemstone Healer...... SSI 

73 Geometric Supposer (the) ..Sunburst 

66 GEOS ..Berkley Softworks 

63 Gladiator ..Taito 

73 Goodell Diamond Caper 

Tom Snyder Productions 

66 GradeBuster 1 2 3 ......Grade Buster 

61 Gutenberg Sr.« ...Micromation LTD. 

65 Halls of Montezuma Electronic Arts 

67 High Orbit..... ..Softsmith 

67 Horizon V .........Softsmith 

75 Hunt for Red October GS... Datasoft 

69 Impossible Mission Epyx 

62 Indoor Sports Mindscape 

68 Infocomics Infocom 

66 Jane.................................... .? 

63 Joker Poker..... Mindscape 

72 Kabul Spy ...Sirius 

68 Kingdom of Facts 

......Santa Barbara/Thunder Mountain 

75 Kobayashi Alternative (The) 

Simon & Schuster 

72 Lane Mastodon Infocom 

67 Lancaster ......SVS 

72 Laser Force (llgs)...........*....... ...........Britannica 

81 Last Ninja, The (He).......................... Activision 

75 LA. Land Monopoly Softsmith 

66 Legacy of the Ancients .....Electronic Arts 

65 Lost Tomb Datasoft 

74 Mammals ■ Reptiles & Amphibians 

Focus Media 

65 Mavis Beacon Teaches Typing (gs) 

........:..».........Software Toohvorks 

73 McGraw-Hill Problem-Solving Lvl 5&6 

Tom Snyder Productions 

67 Microwave Cavalier 

73 Mind Castle I..................... ....MCE Inc. 

63 Modem MGR..... ..........MGR Software 

73 Mystery of Hotel Victoria 

....Tom Snyder Productions 

63 National Inspirer Tom Snyder Productions 

75 Neptune. Softsmith 

66 Observatory (The) .Mindscape 

74 Ocean Life Focus Media 

66 Odin Odessta 

63 Operation Wolf Taito 

69 Phantasie II ...SSI 

67 Phantoms 5 ....Sirius 

67 Pig Pen .....Datamost 

74 Plants & Animals of the Desert ..Focus Media 

75 Prince of Persia (5.25*)....... Broderbund 

67 Project: Space Station... Avantage 

75 Promethean Prophecy (The) 

Simon & Schuster 

67 Pulsar II Sirius 

68 Pure Stat Basketball ? 

62 Quadratic Equations II 

Olympus Educational Software 

81 Quarter Mile He. ..? 

68 Rails West ..SSI 

63 Renegade.. , ..Taito 

67 Rescue Raiders. r... Sir Tech 

63 Rocket Ranger (iigs) Cinemaware 

69 Roundabout ..Datamost 

75 Russki Duck Softsmith 

63 S.D.I, (llgs) Cinemaware 

62 Sea Stalker Broderbund 

67 Serpentine Broderbund 

63 Sky Shark .Taito 



63 Sound Song & Vision Advanced Software 

67 Space Ark ..Datamost 

62 Spare Change......... Broderbund 

62 Speedy Spides Readers Digest 

67 Star Cruiser Sirius 

63 StickyBear Math: Add & Subtract 

Optimum Resources 

68 Stickybear GS Versions 3.5 Xerox 

67 Succession Piccadilly 

61 Superstar Indoor Sports........... ....Mindscape 

74 Surveys Unlimited Mindscaf^ 

68 Talking Text Writer GS., ....Scholastic 

68 Tangled Tales Origin Systems 

69 Tetris (He) ...Spectrum Holobyte 

72 Theatre Europe PBI 

74 The Other Side v2.0 

Tom Snyder Productions 

81 Think Quick! v1. 2 Learning Company 

65 Thunder Chopper ? 

63 Ticket to Washington D.C. 

.Blue Lion Software 

74 Time Explorers Gameco 

74 Time Liner vl.1 ...Tom Snyder Productions 

68 Tomahawk (llgs) ..Datasoft 

69 Track Attack Broderbund 

68 Triad Thunder Mountain 

72 Triango (llgs) California Dreams 

68 Trinity Infocom 

73 Unicorn 5.25" software Unicorn 

73 Vincent's Museum .Tom Snyder Productions 

68 Volcanoes v1.8..........Earthware Comp. Services 

66 War in the Middle Earth.. ..............Melbourne 

63 Wings of Fury Broderbund 

63 Wizardry:Refurn of Werda .Sir-Tech. 

65 Works (the) First Star Software 

67 Zenith Softsmith 

IBM Most Wanted 

84 Ace of Aces .....Accolade 

84 Bar Games Accolade 

84 Colony Mindscape 

84 Don't Go Alone «.... Accolade 

75 Empire...... ..Intersil 

84 Final Orbit «.. ..Innerprise 

72 GBA Champnship Football 

.......Electronic Arts 

68 Graphitti George Best Phillips Academy 

63 Heros of the Lance SSI 

84 Hardball H Accolade 

84 Harmony .....Accolade 

84 Hat Trick Capcom 

84 Ishido Accolade 

87 Lemmings ? 

84 Jetfighter Velocity 

84 John Elway's Quarterback 

...Melbourne House 

84 Ml Tank Platoon Microprose 

84 Monty Python's Flying Circus 

Mastertronic 

72 Operation Wolf Taito 

84 Outrun Sega 

84 Phantasm Exocet 

86 Pirates I Microprose 

84 Powerdrome Electronic Arts 

72 Radio Baseball. ........Electronic Arts 

84 Sim City Maxis 

84 Stormovik Electronic Arts 

86 Sword of the Samurai Microprose 

84 Test Drive III: The Passion Accolade 

84 Third Courier Accolade 

84 Troika Paragon 

84 Wayne Gretzky Hockey 2 Bethesda 

84 World's Greatest Baseball Game 

Epyx/Keypunch 
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79 The Product Monitor •Bitkeys: -Kabul Spy 
•Soltkeys: -ABM -Algebra 1-6 -Cause and Effect 
•Chemistry: Series I -Computer Generated 
Mathematics Vol. 2 -Cribbage -Designer Puzzles 
-Dungeon Master Assistant Vol. 2 -Economics 
•Genesis -Gin King -Go -Grafteiaster -Hard Hat 
Mack -Hi Res Computer Golf -Lileger Arcade -Laser 
Bounce -Mammals Reptiles andlnsects -MasterGrades 
-Mickey's Crossword Puzzle Maker -Mind Bencte 
-Missing links -Non-Western Cultures -RoboCOP 
-Safari Search -SAT Score Improvement Series 
-Special Product and Algebraic Factors -Stickybear 
GS Talking series -Talking Alphabet-Talking 
Opposites-Talking Shapes -Task Force -Teadiex's 
TooDdtversionS.l -The Great Knowledge Race -The 
History of Europe -The Solar System -The Time 
Tunnel -Thief -TrianGO -US History -Wasteland 
-WaterandWeaflier-WhoAmP-WordProblemsfor 
Algebra -Worksheet Generator -Writing Chemical 
Formulas -Your Bod^ -YourBody: Series n -Haying 
Tips: -Baneful Tales -Elite -Mac Features: -Mac 
Hard Disk Ejection Fk -Mac Sdtiwys and otber 
Patches: - ABCBase -Animation Toolkitl -Aztec C 
1.0 -Aztec C version 1.00c -Champion^iq) Boxing 
•Chart-CheckmiiKler -Cutthroats -Cutthroats alternate 
-Deja Vu -DeskToppas -Dollars & Sense -Dollars & 
Sense alternate -Electric Checkbook -Excel -Excel 
alternate jBx -Fact Finder 1.0 -Factfinder -Farenheit 
451 -Feaflifiis & Space -File -FileMaker -Filevision 
-Fileviaonalteinate-Forecast-Frogger-FunPak-Gato 
-Grid Wars -GrifiBn Teiminal -Haba-Comm -Haba- 
Comm alternate -HabaCheckMindo- -Habadex 1.1 
-Harrier Strike Mission -H^dai Speller -H^den 
Speller alternate -Hippo^ Level 1 -Hitchhiker's 
alternate -Hitchhiko-'s Guide to the Galaxy -Home 
Accountant -Legacy -Lode Rurmer -Mac Fortran 
•Macattack -MacChkrs/Rvrsi -MacCommand 
-MacDraftl.O-MacDraftl.l -MacGammQnA:ribbage 
-MacJack/Poker 11 -MacLabeller -MacMatch 
•MacPascal (version 1.0) -MacPoker -MacT^^ 
•MasterType-MasterTVpealtemate-MouseStanqiede 
-Multq)lanalta3iate-MultiplanversiQnl.Q2-OverVue 
•PageMaker -PageMaker 1.0 -Pensate -PFS -PFS 
Fil^eport -PFS version A.03 -Real Pbker -Rogue 
-Sargoii HE -SIq^Fox -Smooth Talker -The Quest 
-Think Tank -ThinkTank 1.1 -ThinkTank 128 
-Thinkrank512-TransyWania-Trq)lePIayl.0-Trivia 
Arcade -Trivia Fever -Typing iSrigue -Ultima ][ 
-Ultimaffl-VideoWods LO-WeffTris-WinlerGames 
-Xyphus -Features, Notes & such: -COPYA-able 
Questronll -How to makelhief into aBRUNaUe file 
-How to run Task Force on your hard drive -Making 
Genesis into a single BRUNable file -Makiiig Hard 
Hat Made into a single BRUNable file -Making 
PLATO software run on the Enhanced //& -Multi- 
Cohmm Print Utility QACP) -Notes on Battle Chess 
-Notes on Silent Service GS -Notes on Wikfcard n 
card -Object Module Format (OMF) -ORCA/ 
E&assembler Scnpis -ORC A/Disassembler utilities 
•Other Notes -Running Teacher's Toolkit v3.1 (3^") 
QnaLaserl28-Task Force on aharddrive and Wirigs 
by Vitesse -The Basics of Kracking ^art 5): 
lieprotection of Modified DOS disks -The Basics of 
KrackingPart6:MatingZone&NibblizingMysteries 
-l^xiateQntheSilentServiceGSv925.01ciack-XtEnial 
Commands for BASIC: CWD (Change Workiig 
Directory VONLINE 

80 The Product Monitor -Features, Notes & such: 

-Add Copy 11 Phis file handling to your BASIC 
program5£g>lCdpy//PiMyPLOT.'-CQmmentSQnlhe 
Beginner's Book -Formatting 720K disks as 1.44M 
lU^SeeHokyMegcdjyteshUowtoSAYEh&xdwcvps 
as CDA's •Logging ProDOS Drives -The BasKS of 
Kraddng (part?) -The Basics of Kra±ing (pat 8) 
-Bitkeys: -BladcMagic-GuikiofThieves-Gunslinger 
-King'sQuestSeries-LeisureSuitLany-ManHunter: 
NewYcric-PolkeQuest-RealmsofI>adcness-Saracen 
-Siena Boot I>isks -Silicon Dreams -Space Quest 
Series-UltimaV-WizaniySeries-Xyphus-Sc^tkeys: 
-AncientArtofWar-BaltleChess-Bridge6.0-Optain 
Blood GS -EMnosaur Days vl.O -Empire -Fahroiheit 



451 -Fay's Word Rally -GATO vl3 -Greeting Card 
Maker -Hostage -Keef The Thief -Magic Spells v2.0 
-MagicSpellsvll -Mickey'sCiosswordPuzzleMaka- 
-Monsters and Make Believe vl .1 •Pipe Dream -Pipe 
Dreams -Rear Guard -Rendezvous wiih Rama -Same 
or Different -Teacher's Tool Kit -Teadier's Tool Kit 
(He) -War of the Lance -Where in the USA isCarmen 
Sandiego?-WindwalkerGS-Windwalkerne-APTs: 
-Space Rogue -Wizardry HI. See Keying the Wiz in 
Wiz III -Playing Tips: -Countdown -Space Rogue 
-ffiM Softkeys: -Serve and VoUey -Welltris 

81 TheProductMonitor-Bitkeys: -Micro Typewriter 
-Softkeys: -Backyard Birds -Balance of Power 
-Chemistry: Balancing Equations -Chemistry: The 
PexiodicTable-ChudcYeager'sAFT-Eq^onMalh 
-Estimation: Quick Solve I -Estimation Quick Solve 
n -Five-Star Forecast -Fossil Hunter -Grammar Toy 
Shop -Instant Survey -Micro Typewriter v4.0 
-Miiphy's Minerals -Patterns -Picture Chon5)ets 
-ProbaMity Lab -Professor Al's Secpiendng Lab 
-Stickybear Sh^jes (PtoDOS 15) -Stuc^ate (the 
grade booster) -Sun and Seasons -The Duel: Test 
Mve n -Time Navigator -Tomahai^ -Windwalker 
-APTs: -Where in Europe is Carmen Sandiego? 
-Where in the USA is Carmen Sandiego? -Where in 
the World is Carmen Sandiego? -Wh^e in Time is 
CannenSandiego?-PlayiiigTips:-Windwalker-IBM 
Softkeys: -Crime Wave -Gauntlet 11 -Stunt Driver 
-Thexder II -Wing Commander 

S2 The Product Monitor-Features^ Notes & such: 
-GS/DSR UpdateonllgsEnhancanentBoard-Two- 
WorldTransfers: i^le to IBM andBadc -Softkeys: 
-Advanced Applesoft Basic -Apple Assembly 
Language -Bad Dudes -Bubble Bobble -C25>tain 
Goodnight -Chemistry - Balancing Equations 
-Chemistty-PeriodicTabk-Comics-CommurriKeys 
-County Fair -Electric Crayon (This Land is your 
Land) -Gorgon-Hi Res ToolKit-HighRise-Invisible 
Bugs -Jawbreaker -King'sBounty -Might andMagic 
n -Miner's Cave -Mission Control -Mystery Matter 
-MysteryObjects -NoteCardMaker -O'Riley'sMine 
•Outliiier -Platoon-Risk vl.4 -Space Statjonfteedom 
-ToPreserve* Protect, and Defend -Wood Car Rally 
-APTs: -C^JtainGoodnight -Elite Phis-lheMaps of 
Kings Quest V -Playing Tips: -Elite Phis -IBM 
Sofikeys: -ABC Mcmd^ Night Football -Ahrams 
Battle Tank -Battlehawks 1942 -Bop'n Wrestle 
•Centurion -Chansons of Krynn -Command HQ 
-Ihdiariapolis 500 -Jade Niddaus* Greatest 18 Holes 
of Major Champion -life & £>eath H: The Brain 
-Lowblow Boxing -Ml Tank Platoon -Mght and 
Magic -Might And Magic II -Nuclear War -Kpe 
I>ream -Pc^ous -Railroad Tycoon -Red Storm 
Rising! -Si$3heed v22 -Street Rod -Test Drive 11 
- Vette •Wmg Commaixkr 

83 The Product Monitor -Features, Notes & such: 
-COREEDIT -Installing Defender of the Crown on a 
Hard Drive -Notes on COPY H PLUS 9.0 -Notes on 
RAMUP - The * ^Cruising" UtiHty For RAM Cards 
-Notes on Teacher Gradir^ programs -Notes on Test 
Writing programs -The Basics of Kraddng Part 9 
-Ultima V Dungeon Copier vl.O -Softkeys: -ABM 
•Cribbage-Firelmd-LunarLeq)ers-MillikEnSoftware 
-Snoggle -Solitaire -Playing Tips: -Defender of the 
Crown -Eye of flie Bdiolder. See Beholder Lore 
-Might & Magic HI. See The Losi Journals of M&M 
in*Sp&]]breaka.SeeSpelibreakerBreak*mMTst^ 
Sof&ey: -Bargames -IBM SofOoeys: -Alley Cat 
-Ardii^dagos-BalanceofI\)wervl.lO-Balderiawks: 
1942-CalifQmiaGames -CarrierComrnand-Caveman 
Ugh-Lyrr^ncs-ColonersBequest-Continuum-Crime 
Wave •Crimewave vl.l -Curse of the Azure Bonds 
-Dragons Lair -Dragon's Lair -Dragon's Lair 11 -Earl 
Weaver'sBaseballvl^ -Earthrise-Esa5)e From Hell 
-F-15 -Grand Slam Bridge -Gunship -One on One 
-WhereintfieUil.A-isCarmenSandiego?-Whercin 
the World is Carmen Sandiego? -Whae in Time is 
Carmen Sandiego? -IBM Playing Tips: -AlO Tank 
KiUer -Space (^t IV- 

#84 The Product Monitor -Bugs: Another bug in 



AppleWorks 3.0 -Bug in Captain Goodnight Softkey 
-Bug in Gorgon Sofikey-Bugsin"WhereInTheUSA 
Is Carmen Sandiego GS" -Features, Notes & such: 
A fix for "Putting... Siq^er Boulder Dash on a Hard 
Disk -An EUTE Craft ...without NMI -Boot code 
tracing Star Maze -EZ APT's with Conpare Disk 
program -Notes on Hacker n -Run MECC On Hard 
Disk-SuperBouldetdashAPTE>qianalion-TteB«ics 
ofKrackmgPartlO-WindwalkerGS Editor-Advanced 
Playing Techniques: Eidolon -Elite -Super 
BouldeidashAPTE>q)lanation-Bitkeys:MECCCopy 
System/Label Utility -Midwest Software -Softkeys: 
Alge - Blaster Plus -Arcade Madiine (The) -Axis 
Assassin -BaclQ^ard Birds -Bandits -Bill Budge's 
Space Album-Borg -Chemistry: BalandngEquatians 
•Cheniistiy:TheP^KxiicTable-aeanwalerI)5ectives 
•Clock -Commmiikeys -Conquering Decimals (+,-) 
•Conquering Decimals (XJ) <:onquering Fractions 
(+ ,-) •Conquering Fractions (KJ) -Conquering Math 
Worksheet Generator -Conquering Percents 
-Ccnquaing Ratios & Proportions -Coordinate Math 
-DecimalConcq)ts-DungeQnMaster'sAssistantvol2 
-Early Skills (2 diskettes) -EquationMath-Estimation 
Quicksolve I -Estimation Quicksolve II -Estimation 
Strategies -Exploring Gas Laws -Five-Star-Forecast 
-Flq) Out -Fossil Hunter -Fraction Concq)ts, Inc. 
-Fraction Practice IWimited -Grammar Gazzette 
-Grammar Toy Shop -Instant Survey -IristantSurvey 
Sampler -InvisibleBugs -Keyboardmg Klass -Kinder 
Koncepts -UttleTownZoo -Living Cell (The) -Lunar 
Greaihouse-Mastertype*sWriter-MathFactsTracker 
-Measureworics -MEOC 3.5"ProDOS disks -MECC 
Oufliner -Miner's Cave -Minotaur -Money -Mystery 
Matter -Mystery Objects -P25)er Plane Pilot -Patterns 
-PictureChonpers-ProbabilityLab-Problem-Soh^ 
With Nim -Rings of Satum -Space Station fteedom 
-Spell It -SpellevatDr -Spelliiig Puzzles and Tests 
-Spelling Series ToolKit -Star Maze -SunA Seasons 
•Teadiing Scientific Inquiry -Tmie Navigator -Time 
Navigator AroundTheWorW-TlmeNavigatarLegps 
Back -To Preserve. Protect & Defend -1^ Attack 
•WeedsToTrees-What'sFirst?What'sNext?-Wood 
Car Rally -Wooly Bounce -Playing Tips: Gemstone 
Healer -IBM Softkeys: Battle Chess II -Carrier 
Command -Colonel's Bequest -Continuum -Crime 
Wave -Crimewave vl.l -Curse of the Azure Bonds 
-I>ragQn's Lair -Dragon's Lair II -Earl Weaver's 
Baseball vl.5 -Earftrise -Escape Rom Hell -F-15 
-Where in U.S A. is Carmen Sandiego? 

#85 -The Product Monitor -Bugs: A bug in 
i^leWodffi 3.0 -Bugs in the Copy n Phis -Bugs in 
••Where in the USA is Carmen Sandiego GS" 
•FeatureSjNotes and such: A"LISTable"vcrsionof 
Warship & WWI Batdecruise -Copy 11 Plus 
discontinued? -Dazzle Draw Patch to Save the 
Configuration -Fastcopya Enhancement problem 
•Locksmith Fastcopy (2 GS) Help -PDOS ^DOS 
RDOS) vl.l -PDOS Exanqjles -PDGS Updates: 
Changes forvl.l of PDOS -TOOS Updates: Changes 
for vl.l of RDOS Transfer -Question and He^ for 
Wings Of Fury by Broderbund -RDOS Transfer 
Utility vl.l -The Basics of Kraddng Part 11 & 12 
-Advanced Playing Technkiues: The Duel: Test 
Drive E GS -Bi&eys: Midwest Software -Softkeys 
AirhMt-BatfleCruiser-BattieFarNormandy-Battfc 
Qroup -Batde of Antietam -Battle of Shiloh -Bomb 
Alley-BreakfliroughintheArdennes-CalendarCraftEr 
vl3 -Carrier Force -Cartels and Cutthroats -Chie 
^bniputer Air Combat 1.1 -Con^wter Air Combat 
DataDisk-ComputerAnibushlO-ConpiterBaseball 
<3cmputer Bismardk 1.1 -Cosmic Balance -Cosmic 
BalanceH-Cyckxi-CytronMasteis-Eagles-l^demic 
-Hfiy Mssion Crush -Fighter Cominand -Galactic 
Adventures -Galactic Gladiators -Geopolitiqiie 1990 
•Guadalcanal Campaign -Imperium Galactum 
-Kanpfgruppe -Kampfgruppe Scenario I>isk One 
-KinderKonoq>t5-Kraght5oftheE>esert-MediBrigade 
-N^eQn'sCanq>aigns:1813& 1815-NortiiAflantic 
'86 -Objective: Kursk -Operation: Market Garden 
-Phantasie -Preskfcnt Eka -Pursuit of the Graf Spee 
-Reforger '88 -Ringside Seat -Risk 14 -Road to 



Ghettysburg -Roadwar 2000 -Roadwar Europa -Six- 
Gun Shoot Out -The Scoop -Tigers In The Snow 
-Torpedo Fire -U.S.A.A.F. -War In Russia -Warp 
Factor-Warship-WordAttackPhis-WWIBattlecruiser 
-IBM Softkeys: Carrier Command -Caveman Ugh- 
Lynpics -Colonel's Bequest -Continuum -Grime 
Wave -Crimewave vl.l -Curse of the Azure Bonds 
-Dragon's Lair -I>ragQn's Lair II -Earl Weaver's 
Baseball vl3 -Earthrise •Escape From Hell -F-15 
-FirehawkThexderll -Gunship -Where in the U.S.A. 
is Carmen Sandiego? 

#86 -The Product Monitor -Bugs: Bug in Airheart 
softkey -Bug in Minotaur softicey -Features, Notes 
andsuch:IIgsResources-PaintWQrksGoldQnahard 
drive? -PC Keyboard Fix -Placing Batde Q^ss on a 
Hard Drive -The Basics of Kracking Part #13 -The 
Basics of Kraddng Part #14 -Softkeys: Analogies 
Tutorial-ArithmeticFactsLeamingAid-BookWorm 
-Cause & Effect -Circus Matfi -Comparison Kitchen 
-Eariy Addition-^xxjh-Extra! Extra! -FactorOpnion 
-Figurative Language -Foundations in State ICstory: 
FocusonLidiana-Go to flieHeadof theClass -Indiana 
JonesinRevengeoflheAndents-IrilBllectualSoflware 
disks -Introductory Genetics -KJds at Woric -Magic 
Candle-MastetyArithmeticGames(i989)-Medalists: 
Create Your Own -Medalists: Presidents 
-Microconqjuter Woricshops disks -Microzine #19 
-Milt's Matii Drills -Money Worics -Monsters and 
Make Believe -Mrs. Wigglesworth's Secret 
-MultijdicationPuzzles-MysteryofdTeWitch'sShDes 
-Paint with Words -Parts of Speech Nouns -Parts of 
Speech Verbs I -Punctuation SkiUs Conmias 
-PunctuationSkillsEndMarks, Senucolon,andColon 
-Questronn -Quotient Quest -Rounding -SAT Score 
Improvement System Algebra -SAT Score 
improvement System Geometry -Sea Speller -Sheila 
-Si^jerstar Ice Hockey -Test Mve -The Case of the 
Missing Chick -Tlie Skeletal System -Trivia Machine 
-Way Out -Who. What, When, Where -Word 
ScrariiblerandSpeUingTutor-IBMSoftkeys-ArtWQdc 
•Faces -Heat Wave -Hoverforce -Indy ! The GiTE53hic 
Adventure -Kings Quest III -Space Hairier -Teenage 
Mutant Ninja Turtles 

#87 -The RroductMonitor -Bugs: Bug in Algebra vol 
3 & 4 -Bug in Matdimaker World Geogn^y Facts 
•BuginPSATWoidAttadcSkills-BuginPSAT/SAT 
Anabgies-BuginSATWordAttackSkills-FeatureSy 
Notes and such: Basics of Kracking Part #14, The 
•Build Your Own Stereo Board! -Kraddng SSI's 
RDOS-MECC33"disksoffl^rs-MECC5.25"disk 
sofifceys -Notes on Test Ehive n cars didcs -Questran 
n CDA v2.0 -Softkeys: Bhie Grass Bluff (525") 
•Bhiegrass Bhiff (3.5") -Botanist's Apprentice (The) 
•Cause & Effect: Mountain Climbmg Blue Level 
-QeanwaterDetectives (3.5")-CleanwaterDetectives 
(525") -Context Oues: Hkkkn Treasure Red Level 
-Dlrawing Ccncliisions: Chief of Detectives Blue 
Level -Drawing Conclusknis: Chief of D^ectives 
Red Level •Estimation Activities (3.5") •Estanation 
Activities (525") •Fact or Qpinion; Smart Shopper 
Blue Level •Fact or OpinkMi: Smart Shopper Red 
Level •ReM Zoologist, Tlie •Folbwing Directions: 
Behindthe WheelRedLevd-GettmgtheMainldea: 
Around the WorldBlueLevel -Getting theMainldea: 
Around the World Red Levd •Grammar Gazette 
(3.5") -Grammar Gazetle(525")-GranmiarMonsters 
(3.5">-Inference: SchoolDaysBhieLevel -Inference: 
Sdiool I>^s Red Level -Joum^ to the Age of the 
Dniosaurs -Littletown Zoo (35") -littietown Zoo 
(5.25") •Uving CeU Q5"\ The •living CeU (5.25"). 
The •Outpost •Paper Plane Pilot (3.5") •Paper Plane 
Pilot (5.25") •Ptensate •Problem Sowing With Nim 
(3.5") •ProHem Solving With Nim (525") •Reading 
forDetail:RaceTra±BlueLevd^Readirig for Detail: 
RaceTrackRedLevel -Sequence: What Comes East 
Bhie Level -Sequence: What Comes Rrst Red Level 
and much more. . . 

For a complete back issue list, send a 750 
stamp to Computist. 
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Corel D 

1 D 

2 O 

Core2n 

3 O 

4 O 

Core3n 



5... 
6... 
7... 
8... 
9... 
10., 
11., 
12., 
13., 
14., 
15., 
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18 o n 
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22.... 
23.... 
24.... 
25.... 
26.... 
27.... 
2S^. 
29.... 
30.... 
31.... 
32.... 
33.... 
34.... 
35.... 
36.... 
37.... 
38.... 
39.... 
40.... 
41.... 
42.... 
43.... 
44.... 
45.... 



.D D 
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46... 
47... 
48... 
49... 
50... 
51... 
52... 
53... 
54... 
55 .... 
56..., 
57.... 
58.... 
59.... 
60.... 
61,... 
62.... 
63 .... 
64.... 
65 .... 
66*.. 
67.... 
68.... 
69... 
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.n D 
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70... 
71 ..., 
72..., 
73.... 
74.... 
75 .... 
76.... 
77.... 
78.... 
79.... 
80.... 
81.... 
82.... 
83 .... 
84.... 
85.... 
86.... 



.D a 

.D D 

.n n 

.D D 

.D n 

.D D 

.n n 
.D n 
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.D D 
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.D D 
.D D 
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Some disks apply to more than one issue and are 
shown as taller boxes. 

i^ Limited supply — first-come-first-serve basis. 
O Out-of-print — only "Zeroxed" copies for sale. 
* Issue 66 is laser printed on 8 V2 by 1 1 paper. 
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Back Issue and Library Disk Rates 



Back issues 


Quantity 
.. 5 or less 
6 to 9 


US, Canada 
& Mexico 

$4.75 

$3.75 


All 
others 
$8.75 
$6.00 




10 or more 


$3.00 


$5.00 


Zox back issues* . 


.. any qty. 


$4.75 


$8.75 


Library disks 


,. 5 or less 
6to9 


$5.50 
$4.00 


$7.50 
$6.00 




10 or more 


$3.00 


$5.00 



Note: Total back issue and library disk orders to get 
quantity discounts, (ie, ordering 5 back issues and 5 
library disks means that you pay the the quantity 10 price 
of $3 each for both.) 

*Due to the time and effort involved in making Zox 
copies, their price will remain at $4.75 each for US,, 
Canada &. Mexico and at $8.75 for all other Foreign. 

Shipping is included in all the prices shown. 

What's a library disk? 

A library disk is a 57^ inch floppy diskette that 
contains programs that would normally have to be typed 
in by the user. Documentation for each library disk can 
be foimd in the corresponding issue. 

•Library disks are available for all issues of COM- 
PUTIST. 

For a complete back issue list, send a 75^ stamp to 
Computist. 



Number of back issues. 



Number of Zox back issues. $ _ 

Number of library Disks. $ . 

Washington state residents add 7.8% tax $ , 

Total enclosed $ 



City 



-State . 



-Zip. 



Couutxy 

VISA 

MC 



-Exp.. 



• US funds drawn on US bank. • Most orders shipped within 5 working days, 
however please allow up to 4 weeks delivery for some orders. • Large orders are 
shipped UPS so please use a street address. • Offo" good while supply lasts. • Call 
(206) 832-3055 to use a credit card or send check/money order to: 

COMPUTIST 33821 E Orville Road Eatonville WA 98328 
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Readers Data Exchange 



COMPUTIST #89 



